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

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

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

revision 1.2 by jmc, Wed Mar 3 14:16:41 2004 UTC revision 1.3 by jmc, Wed Apr 7 23:40:34 2004 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "THSICE_OPTIONS.h"  #include "THSICE_OPTIONS.h"
5    
6  CStartOfInterface  CBOP
7    C     !ROUTINE: THSICE_MONITOR
8    C     !INTERFACE
9        SUBROUTINE THSICE_MONITOR( myTime, myIter, myThid )        SUBROUTINE THSICE_MONITOR( myTime, myIter, myThid )
10    
11    C     !DESCRIPTION: \bv
12  C     *==========================================================*  C     *==========================================================*
13  C     | SUBROUTINE THSICE_MONITOR  C     | S/R THSICE_MONITOR
14  C     | o Do ICE global & Hemispheric diagnostic  C     | o Do ICE global & Hemispheric diagnostic
15  C     *==========================================================*  C     *==========================================================*
16  C     *==========================================================*  C     *==========================================================*
17    C     \ev
18    
19    C     !USES:
20        IMPLICIT NONE        IMPLICIT NONE
21    
22  C     === Global variables ===  C     === Global variables ===
# Line 18  C     === Global variables === Line 25  C     === Global variables ===
25  #include "PARAMS.h"  #include "PARAMS.h"
26  #include "GRID.h"  #include "GRID.h"
27  #include "THSICE_PARAMS.h"  #include "THSICE_PARAMS.h"
28  #include "THSICE.h"  #include "THSICE_VARS.h"
29  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
30  #include "MONITOR.h"  #include "MONITOR.h"
31  #endif  #endif
32    
33    C     !INPUT/OUTPUT PARAMETERS:
34  C     == Routine arguments ==  C     == Routine arguments ==
35  C     myTime - Current time of simulation ( s )  C     myTime - Current time of simulation ( s )
36  C     myIter - Iteration number  C     myIter - Iteration number
# Line 30  C     myThid -  Number of this instance Line 38  C     myThid -  Number of this instance
38        _RL     myTime        _RL     myTime
39        INTEGER myIter        INTEGER myIter
40        INTEGER myThid        INTEGER myThid
41  CEndOfInterface  CEOP
42    
43  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
44  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22