/[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.13 by jmc, Tue Feb 12 20:27:00 2008 UTC revision 1.19 by dimitri, Mon Mar 26 01:47:08 2012 UTC
# Line 36  C             :: =0 called from the begi Line 36  C             :: =0 called from the begi
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  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  :: my Thread Id number
40        _RL     myTime        _RL     myTime
41        INTEGER seqFlag        INTEGER seqFlag
42        INTEGER myIter        INTEGER myIter
# Line 71  C                    and stagger/synchro Line 71  C                    and stagger/synchro
71            IF ( seqFlag.EQ.0 ) selectVars = 3            IF ( seqFlag.EQ.0 ) selectVars = 3
72          ENDIF          ENDIF
73          IF ( seqFlag.EQ.2 ) selectVars = 4          IF ( seqFlag.EQ.2 ) selectVars = 4
74          CALL DIAGNOSTICS_FILL_STATE(selectVars, myThid)          CALL DIAGNOSTICS_FILL_STATE( selectVars, myIter, myThid )
75    
76  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
77          IF ( seqFlag.EQ.0 .AND. useGAD ) THEN          IF ( seqFlag.EQ.0 .AND. useGAD ) THEN
# Line 82  C                    and stagger/synchro Line 82  C                    and stagger/synchro
82  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
83          IF ( (selectVars.EQ.1 .OR. selectVars.EQ.3)          IF ( (selectVars.EQ.1 .OR. selectVars.EQ.3)
84       &      .AND. usePTRACERS ) THEN       &      .AND. usePTRACERS ) THEN
85            CALL PTRACERS_DIAGNOSTICS_STATE( myThid )            CALL PTRACERS_DIAGNOSTICS_STATE( myTime, myIter, myThid )
86          ENDIF          ENDIF
87  #endif  #endif /* ALLOW_PTRACERS */
88    
89    #ifdef ALLOW_GMREDI
90           IF ( seqFlag.EQ.2 .AND. useGMRedi ) THEN
91             CALL GMREDI_DIAGNOSTICS_IMPL( myTime, myIter, myThid )
92           ENDIF
93    #endif /* ALLOW_GMREDI */
94    
95    #ifdef ALLOW_BBL
96           IF ( seqFlag.EQ.0 .AND. useBBL ) THEN
97             CALL BBL_DIAGNOSTICS_STATE( myTime, myIter, myThid )
98           ENDIF
99    #endif /* ALLOW_BBL */
100    
101  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
102         IF ( seqFlag.EQ.0 .AND. useSEAICE ) THEN         IF ( seqFlag.EQ.0 .AND. useSEAICE ) THEN
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22