/[MITgcm]/MITgcm/pkg/seaice/seaice_do_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_do_diags.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.20 by mlosch, Mon Mar 20 21:36:11 2006 UTC revision 1.21 by jmc, Tue Jun 20 20:57:06 2006 UTC
# Line 42  C     == Local variables == Line 42  C     == Local variables ==
42        ELSE        ELSE
43          pf(1:1) = 'R'          pf(1:1) = 'R'
44        ENDIF        ENDIF
45          
46        IF (SEAICEwriteState) THEN        IF (SEAICEwriteState) THEN
47    
48          IF ( DIFFERENT_MULTIPLE(SEAICE_dumpFreq,myTime,deltaTClock)          IF ( DIFFERENT_MULTIPLE(SEAICE_dumpFreq,myTime,deltaTClock)
# Line 374  C      Reset averages to zero Line 374  C      Reset averages to zero
374                
375  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
376    
377    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
378    
379    C--   do SEAICE monitor output : print some statistics about seaice fields
380          CALL SEAICE_MONITOR( myTime, myIter, myThid )
381    
382        RETURN        RETURN
383        END        END
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22