Parent Directory | Revision Log | Revision Graph | Patch
revision 1.18 by jmc, Tue Mar 20 23:38:03 2012 UTC | revision 1.19 by dimitri, Mon Mar 26 01:47:08 2012 UTC | |
---|---|---|
# | Line 98 C and stagger/synchro | Line 98 C and stagger/synchro |
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 ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |