/[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.15 by dimitri, Sun Aug 7 07:08:15 2011 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  #ifdef ALLOW_GENERIC_ADVDIFF
77          IF ( seqFlag.EQ.0 .AND. useGAD ) THEN          IF ( seqFlag.EQ.0 .AND. useGAD ) THEN
# Line 84  C                    and stagger/synchro Line 84  C                    and stagger/synchro
84       &      .AND. usePTRACERS ) THEN       &      .AND. usePTRACERS ) THEN
85            CALL PTRACERS_DIAGNOSTICS_STATE( myTime, myIter, myThid )            CALL PTRACERS_DIAGNOSTICS_STATE( myTime, myIter, myThid )
86          ENDIF          ENDIF
87  #endif  #endif /* ALLOW_PTRACERS */
88    
89  #ifdef ALLOW_BBL  #ifdef ALLOW_BBL
90         IF ( seqFlag.EQ.0 .AND. useBBL ) THEN         IF ( seqFlag.EQ.0 .AND. useBBL ) THEN
91           CALL BBL_DIAGNOSTICS_STATE( myTime, myIter, myThid )           CALL BBL_DIAGNOSTICS_STATE( myTime, myIter, myThid )
92         ENDIF         ENDIF
93  #endif /* ALLOW_MYPACKAGE */  #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.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22