/[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.10 by jmc, Thu Jun 21 00:29:33 2007 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 53  C            = 3 :: fill-in diagnostics Line 53  C            = 3 :: fill-in diagnostics
53  C            = 4 :: fill-in state variable tendency diagnostics the second time  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    #if defined(ALLOW_THSICE) || defined(ALLOW_LAND)
57        INTEGER bi, bj        INTEGER bi, bj
58    #endif
59    
60  C--   Fill-in Diagnostics pkg storage array (for state-variables)  C--   Fill-in Diagnostics pkg storage array (for state-variables)
61        IF ( usediagnostics ) THEN        IF ( usediagnostics ) THEN
# Line 69  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_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
# Line 104  C                    and stagger/synchro Line 124  C                    and stagger/synchro
124         ENDIF         ENDIF
125  #endif /* ALLOW_LAND */  #endif /* ALLOW_LAND */
126    
127    #ifdef ALLOW_MYPACKAGE
128           IF ( seqFlag.EQ.0 .AND. useMYPACKAGE ) THEN
129             CALL MYPACKAGE_DIAGNOSTICS_STATE( myTime, myIter, myThid )
130           ENDIF
131    #endif /* ALLOW_MYPACKAGE */
132    
133        ENDIf        ENDIf
134  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
135    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22