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

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

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

revision 1.27 by gforget, Thu Feb 16 01:22:02 2012 UTC revision 1.28 by jmc, Tue Apr 9 21:01:52 2013 UTC
# Line 114  C       Print some statistics about inpu Line 114  C       Print some statistics about inpu
114          CALL MON_WRITESTATS_RL( 1, VICE, '_vice',          CALL MON_WRITESTATS_RL( 1, VICE, '_vice',
115       &                   UVM, UVM, rAz, drF, dummyRL, myThid )       &                   UVM, UVM, rAz, drF, dummyRL, myThid )
116  #endif  #endif
117          CALL MON_WRITESTATS_RL( 1, AREA, '_area',          IF ( .NOT.useThSIce ) THEN
118             CALL MON_WRITESTATS_RL( 1, AREA, '_area',
119       &           maskInC, maskInC, rA , drF, dummyRL, myThid )       &           maskInC, maskInC, rA , drF, dummyRL, myThid )
120          CALL MON_WRITESTATS_RL( 1, HEFF, '_heff',           CALL MON_WRITESTATS_RL( 1, HEFF, '_heff',
121       &           maskInC, maskInC, rA , drF, dummyRL, myThid )       &           maskInC, maskInC, rA , drF, dummyRL, myThid )
122          CALL MON_WRITESTATS_RL( 1, HSNOW,'_hsnow',           CALL MON_WRITESTATS_RL( 1, HSNOW,'_hsnow',
123       &           maskInC, maskInC, rA , drF, dummyRL, myThid )       &           maskInC, maskInC, rA , drF, dummyRL, myThid )
124  #ifdef SEAICE_VARIABLE_SALINITY  #ifdef SEAICE_VARIABLE_SALINITY
125          CALL MON_WRITESTATS_RL( 1, HSALT,'_hsalt',           CALL MON_WRITESTATS_RL( 1, HSALT,'_hsalt',
126       &           maskInC, maskInC, rA , drF, dummyRL, myThid )       &           maskInC, maskInC, rA , drF, dummyRL, myThid )
127  #endif /* SEAICE_VARIABLE_SALINITY */  #endif /* SEAICE_VARIABLE_SALINITY */
128            ENDIF
129  #ifdef ALLOW_SITRACER  #ifdef ALLOW_SITRACER
130          DO iTracer = 1, SItrNumInUse          DO iTracer = 1, SItrNumInUse
131           WRITE(suff,'(A9,I2.2)') '_sitracer', iTracer           WRITE(suff,'(A9,I2.2)') '_sitracer', iTracer
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22