/[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.23 by jmc, Thu Aug 17 00:18:44 2006 UTC revision 1.24 by heimbach, Sun Oct 22 01:11:02 2006 UTC
# Line 368  C      Reset averages to zero Line 368  C      Reset averages to zero
368    
369  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
370    
371    #ifdef ALLOW_DIAGNOSTICS
372          IF ( useDiagnostics ) THEN
373            CALL DIAGNOSTICS_FILL(AREA   ,'SIarea  ',0,3 ,0,1,1,myThid)
374            CALL DIAGNOSTICS_FILL(HEFF   ,'SIheff  ',0,3 ,0,1,1,myThid)
375            CALL DIAGNOSTICS_FILL(UICE   ,'SIuice  ',0,3 ,0,1,1,myThid)
376            CALL DIAGNOSTICS_FILL(VICE   ,'SIvice  ',0,3 ,0,1,1,myThid)
377            CALL DIAGNOSTICS_FILL(HSNOW  ,'SIhsnow ',0,1 ,0,1,1,myThid)
378    c
379            CALL DIAGNOSTICS_FILL(UWIND  ,'SIuwind ',0,1 ,0,1,1,myThid)
380            CALL DIAGNOSTICS_FILL(VWIND  ,'SIvwind ',0,1 ,0,1,1,myThid)
381            CALL DIAGNOSTICS_FILL(FU     ,'SIfu    ',0,1 ,0,1,1,myThid)
382            CALL DIAGNOSTICS_FILL(FV     ,'SIfv    ',0,1 ,0,1,1,myThid)
383            CALL DIAGNOSTICS_FILL(EmPmR  ,'SIempmr ',0,1 ,0,1,1,myThid)
384            CALL DIAGNOSTICS_FILL(Qnet   ,'SIqnet  ',0,1 ,0,1,1,myThid)
385            CALL DIAGNOSTICS_FILL(Qsw    ,'SIqsw   ',0,1 ,0,1,1,myThid)
386          ENDIF
387    #endif /* ALLOW_DIAGNOSTICS */
388    
389    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
390    
391  C--   do SEAICE monitor output : print some statistics about seaice fields  C--   do SEAICE monitor output : print some statistics about seaice fields
392        CALL SEAICE_MONITOR( myTime, myIter, myThid )        CALL SEAICE_MONITOR( myTime, myIter, myThid )
393    
394    
395    
396        RETURN        RETURN
397        END        END
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22