/[MITgcm]/MITgcm/model/src/do_statevars_diags.F
ViewVC logotype

Diff of /MITgcm/model/src/do_statevars_diags.F

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

revision 1.7 by jmc, Mon Feb 14 00:46:58 2005 UTC revision 1.8 by molod, Tue Jan 17 16:08:24 2006 UTC
# Line 34  C     myTime  :: Current time of simulat Line 34  C     myTime  :: Current time of simulat
34  C     seqFlag :: flag that indicate where this S/R is called from:  C     seqFlag :: flag that indicate where this S/R is called from:
35  C             :: =0 called from the beginning of forward_step  C             :: =0 called from the beginning of forward_step
36  C             :: =1 called from the middle of forward_step  C             :: =1 called from the middle of forward_step
37    C             :: =2 called from the end of forward_step
38  C     myIter  :: Iteration number  C     myIter  :: Iteration number
39  C     myThid  :: Thread number for this instance of the routine.  C     myThid  :: Thread number for this instance of the routine.
40        _RL     myTime        _RL     myTime
# Line 49  C     selectVars :: select which group o Line 50  C     selectVars :: select which group o
50  C            = 1 :: fill-in diagnostics for tracer   variables only  C            = 1 :: fill-in diagnostics for tracer   variables only
51  C            = 2 :: fill-in diagnostics for momentum variables only  C            = 2 :: fill-in diagnostics for momentum variables only
52  C            = 3 :: fill-in diagnostics for momentum & tracer variables  C            = 3 :: fill-in diagnostics for momentum & tracer variables
53    C            = 4 :: fill-in state variable tendency diagnostics the second time
54  C     bi,bj      :: tile indices  C     bi,bj      :: tile indices
55        INTEGER selectVars        INTEGER selectVars
56        INTEGER bi, bj        INTEGER bi, bj
# Line 66  C                    and stagger/synchro Line 68  C                    and stagger/synchro
68          ELSE          ELSE
69            IF ( seqFlag.EQ.0 ) selectVars = 3            IF ( seqFlag.EQ.0 ) selectVars = 3
70          ENDIF          ENDIF
71            IF ( seqFlag.EQ.2 ) selectVars = 4
72          CALL DIAGNOSTICS_FILL_STATE(selectVars, myThid)          CALL DIAGNOSTICS_FILL_STATE(selectVars, myThid)
73    
74  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22