/[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.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)
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22