/[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.16 by jmc, Wed Nov 30 21:00:22 2011 UTC revision 1.20 by heimbach, Fri Jul 20 12:32:27 2012 UTC
# Line 86  C                    and stagger/synchro Line 86  C                    and stagger/synchro
86          ENDIF          ENDIF
87  #endif /* ALLOW_PTRACERS */  #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  #ifdef ALLOW_BBL
96         IF ( seqFlag.EQ.0 .AND. useBBL ) THEN         IF ( seqFlag.EQ.0 .AND. useBBL ) THEN
97           CALL BBL_DIAGNOSTICS_STATE( myTime, myIter, myThid )           CALL BBL_DIAGNOSTICS_STATE( myTime, myIter, myThid )
# Line 108  C                    and stagger/synchro Line 114  C                    and stagger/synchro
114         ENDIF         ENDIF
115  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
116    
117    #ifdef ALLOW_STREAMICE
118           IF ( seqFlag.EQ.2 .AND. useStreamIce ) THEN
119            CALL STREAMICE_DIAGNOSTICS_STATE( myTime, myIter, myThid )
120           ENDIF
121    #endif /* ALLOW_SEAICE */
122    
123  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
124         IF ( seqFlag.EQ.0 .AND. useLand ) THEN         IF ( seqFlag.EQ.0 .AND. useLand ) THEN
125          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22