/[MITgcm]/MITgcm/pkg/thsice/thsice_diffusion.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_diffusion.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jmc, Wed Apr 4 02:40:42 2007 UTC revision 1.2 by jmc, Sun Jan 3 21:09:28 2010 UTC
# Line 51  C     myThid    :: My Thread Id number Line 51  C     myThid    :: My Thread Id number
51        _RL     myTime        _RL     myTime
52        INTEGER myIter        INTEGER myIter
53        INTEGER myThid        INTEGER myThid
 CEndOfInterface  
54    
55  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
56  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES: ====================================================
57  C     === Local variables ===  C     === Local variables ===
58  C     i,j,      :: Loop counters  C     i,j,      :: Loop counters
59  C     iceFld    :: sea-ice + snow mass density  C     iceFld    :: sea-ice + snow mass density
60  C     msgBuf    :: Informational/error meesage buffer  C     msgBuf    :: Informational/error message buffer
61        INTEGER i, j        INTEGER i, j
62        CHARACTER*(MAX_LEN_MBUF) msgBuf  c     CHARACTER*(MAX_LEN_MBUF) msgBuf
63        _RL     iceFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL     iceFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
64        _RL     tmpFld, hIceEpsil        _RL     tmpFld, hIceEpsil
65        LOGICAL dBugFlag        LOGICAL dBugFlag
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22