Parent Directory | Revision Log | Revision Graph | Patch
revision 1.8 by molod, Tue Jan 17 16:08:24 2006 UTC | revision 1.9 by mlosch, Thu Jun 7 13:47:07 2007 UTC | |
---|---|---|
# | Line 78 C and stagger/synchro | Line 78 C and stagger/synchro |
78 | ENDIF | ENDIF |
79 | #endif | #endif |
80 | ||
81 | #ifdef ALLOW_SEAICE | |
82 | IF ( seqFlag.EQ.0 .AND. useSEAICE ) THEN | |
83 | CALL SEAICE_DIAGNOSTICS_FILL( myTime, myIter, myThid ) | |
84 | ENDIF | |
85 | #endif /* ALLOW_SEAICE */ | |
86 | ||
87 | #ifdef ALLOW_THSICE | #ifdef ALLOW_THSICE |
88 | IF ( seqFlag.EQ.0 .AND. useThSIce ) THEN | IF ( seqFlag.EQ.0 .AND. useThSIce ) THEN |
89 | DO bj=myByLo(myThid),myByHi(myThid) | DO bj=myByLo(myThid),myByHi(myThid) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |