/[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.17 by dimitri, Fri Mar 2 01:45:22 2012 UTC revision 1.21 by jmc, Thu Jan 17 23:12:11 2013 UTC
# 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 86  C                    and stagger/synchro Line 82  C                    and stagger/synchro
82          ENDIF          ENDIF
83  #endif /* ALLOW_PTRACERS */  #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  #ifdef ALLOW_BBL
92         IF ( seqFlag.EQ.0 .AND. useBBL ) THEN         IF ( seqFlag.EQ.0 .AND. useBBL ) THEN
93           CALL BBL_DIAGNOSTICS_STATE( myTime, myIter, myThid )           CALL BBL_DIAGNOSTICS_STATE( myTime, myIter, myThid )
94         ENDIF         ENDIF
95  #endif /* ALLOW_BBL */  #endif /* ALLOW_BBL */
96    
 #ifdef ALLOW_FRAZIL  
        IF ( seqFlag.EQ.0 .AND. useFRAZIL ) THEN  
         CALL FRAZIL_DIAGNOSTICS_STATE( myTime, myIter, myThid )  
        ENDIF  
 #endif /* ALLOW_FRAZIL */  
   
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    
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22