/[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.11 by jmc, Tue Sep 4 16:49:44 2007 UTC revision 1.21 by jmc, Thu Jan 17 23:12:11 2013 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 51  C            = 1 :: fill-in diagnostics Line 51  C            = 1 :: fill-in diagnostics
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  C            = 4 :: fill-in state variable tendency diagnostics the second time
 C     bi,bj      :: tile indices  
54        INTEGER selectVars        INTEGER selectVars
 #if defined(ALLOW_THSICE) || defined(ALLOW_LAND)  
       INTEGER bi, bj  
 #endif  
55    
56  C--   Fill-in Diagnostics pkg storage array (for state-variables)  C--   Fill-in Diagnostics pkg storage array (for state-variables)
57        IF ( usediagnostics ) THEN        IF ( usediagnostics ) THEN
# Line 71  C                    and stagger/synchro Line 67  C                    and stagger/synchro
67            IF ( seqFlag.EQ.0 ) selectVars = 3            IF ( seqFlag.EQ.0 ) selectVars = 3
68          ENDIF          ENDIF
69          IF ( seqFlag.EQ.2 ) selectVars = 4          IF ( seqFlag.EQ.2 ) selectVars = 4
70          CALL DIAGNOSTICS_FILL_STATE(selectVars, myThid)          CALL DIAGNOSTICS_FILL_STATE( selectVars, myIter, myThid )
71    
72    #ifdef ALLOW_GENERIC_ADVDIFF
73            IF ( seqFlag.EQ.0 .AND. useGAD ) THEN
74              CALL GAD_DIAGNOSTICS_STATE( myTime, myIter, myThid )
75            ENDIF
76    #endif /* ALLOW_GENERIC_ADVDIFF */
77    
78  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
79          IF ( (selectVars.EQ.1 .OR. selectVars.EQ.3)          IF ( (selectVars.EQ.1 .OR. selectVars.EQ.3)
80       &      .AND. usePTRACERS ) THEN       &      .AND. usePTRACERS ) THEN
81            CALL PTRACERS_DIAGNOSTICS_STATE( myThid )            CALL PTRACERS_DIAGNOSTICS_STATE( myTime, myIter, myThid )
82          ENDIF          ENDIF
83  #endif  #endif /* ALLOW_PTRACERS */
84    
85    #ifdef ALLOW_GMREDI
86           IF ( seqFlag.EQ.2 .AND. useGMRedi ) THEN
87             CALL GMREDI_DIAGNOSTICS_IMPL( myTime, myIter, myThid )
88           ENDIF
89    #endif /* ALLOW_GMREDI */
90    
91    #ifdef ALLOW_BBL
92           IF ( seqFlag.EQ.0 .AND. useBBL ) THEN
93             CALL BBL_DIAGNOSTICS_STATE( myTime, myIter, myThid )
94           ENDIF
95    #endif /* ALLOW_BBL */
96    
97  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
98         IF ( seqFlag.EQ.0 .AND. useSEAICE ) THEN         IF ( seqFlag.EQ.0 .AND. useSEAICE ) THEN
99          CALL SEAICE_DIAGNOSTICS_STATE( myTime, myIter, myThid )           CALL SEAICE_DIAGNOSTICS_STATE( myTime, myIter, myThid )
100         ENDIF         ENDIF
101  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
102    
103  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
104         IF ( seqFlag.EQ.0 .AND. useThSIce ) THEN         IF ( seqFlag.EQ.0 .AND. useThSIce ) THEN
105          DO bj=myByLo(myThid),myByHi(myThid)           CALL THSICE_DIAGNOSTICS_STATE( myTime, myIter, myThid )
          DO bi=myBxLo(myThid),myBxHi(myThid)  
           CALL THSICE_DIAGNOSTICS_STATE( myTime,myIter,bi,bj,myThid )  
          ENDDO  
         ENDDO  
106         ENDIF         ENDIF
107  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
108    
109    #ifdef ALLOW_STREAMICE
110           IF ( seqFlag.EQ.2 .AND. useStreamIce ) THEN
111             CALL STREAMICE_DIAGNOSTICS_STATE( myTime, myIter, myThid )
112           ENDIF
113    #endif /* ALLOW_SEAICE */
114    
115  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
116         IF ( seqFlag.EQ.0 .AND. useLand ) THEN         IF ( seqFlag.EQ.0 .AND. useLand ) THEN
117          DO bj=myByLo(myThid),myByHi(myThid)           CALL LAND_DIAGNOSTICS_STATE( myTime, myIter, myThid )
          DO bi=myBxLo(myThid),myBxHi(myThid)  
           CALL LAND_DIAGNOSTICS_STATE( myTime,myIter, bi,bj, myThid )  
          ENDDO  
         ENDDO  
118         ENDIF         ENDIF
119  #endif /* ALLOW_LAND */  #endif /* ALLOW_LAND */
120    
121    #ifdef ALLOW_MYPACKAGE
122           IF ( seqFlag.EQ.0 .AND. useMYPACKAGE ) THEN
123             CALL MYPACKAGE_DIAGNOSTICS_STATE( myTime, myIter, myThid )
124           ENDIF
125    #endif /* ALLOW_MYPACKAGE */
126    
127        ENDIf        ENDIf
128  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
129    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22