/[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.20 by heimbach, Fri Jul 20 12:32:27 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 100  C                    and stagger/synchro Line 96  C                    and stagger/synchro
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  #ifdef ALLOW_STREAMICE
110         IF ( seqFlag.EQ.2 .AND. useStreamIce ) THEN         IF ( seqFlag.EQ.2 .AND. useStreamIce ) THEN
111          CALL STREAMICE_DIAGNOSTICS_STATE( myTime, myIter, myThid )           CALL STREAMICE_DIAGNOSTICS_STATE( myTime, myIter, myThid )
112         ENDIF         ENDIF
113  #endif /* ALLOW_SEAICE */  #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.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22