/[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.12 by jmc, Sun Jan 27 20:55:43 2008 UTC revision 1.16 by jmc, Wed Nov 30 21:00:22 2011 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
77            IF ( seqFlag.EQ.0 .AND. useGAD ) THEN
78              CALL GAD_DIAGNOSTICS_STATE( myTime, myIter, myThid )
79            ENDIF
80    #endif /* ALLOW_GENERIC_ADVDIFF */
81    
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_BBL
90           IF ( seqFlag.EQ.0 .AND. useBBL ) THEN
91             CALL BBL_DIAGNOSTICS_STATE( myTime, myIter, myThid )
92           ENDIF
93    #endif /* ALLOW_BBL */
94    
95  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
96         IF ( seqFlag.EQ.0 .AND. useSEAICE ) THEN         IF ( seqFlag.EQ.0 .AND. useSEAICE ) THEN
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22