/[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.19 by dimitri, Mon Mar 26 01:47:08 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 )
98         ENDIF         ENDIF
99  #endif /* ALLOW_BBL */  #endif /* ALLOW_BBL */
100    
 #ifdef ALLOW_FRAZIL  
        IF ( seqFlag.EQ.0 .AND. useFRAZIL ) THEN  
         CALL FRAZIL_DIAGNOSTICS_STATE( myTime, myIter, myThid )  
        ENDIF  
 #endif /* ALLOW_FRAZIL */  
   
101  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
102         IF ( seqFlag.EQ.0 .AND. useSEAICE ) THEN         IF ( seqFlag.EQ.0 .AND. useSEAICE ) THEN
103          CALL SEAICE_DIAGNOSTICS_STATE( myTime, myIter, myThid )          CALL SEAICE_DIAGNOSTICS_STATE( myTime, myIter, myThid )
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22