/[MITgcm]/MITgcm/pkg/thsice/thsice_monitor.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_monitor.F

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

revision 1.17 by jmc, Tue Mar 16 00:23:59 2010 UTC revision 1.18 by jmc, Wed Aug 1 18:22:41 2012 UTC
# Line 55  C     == Local variables == Line 55  C     == Local variables ==
55        _RL theMeanG, theVolG        _RL theMeanG, theVolG
56        _RL theMean1, theMean2, theEnergy        _RL theMean1, theMean2, theEnergy
57        _RL theMin0, theMax0, theSD, theDel2        _RL theMin0, theMax0, theSD, theDel2
58          _RL dummyRL(6)
59        INTEGER i,j,bi,bj        INTEGER i,j,bi,bj
60  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
61        INTEGER k        INTEGER k
# Line 256  C-- Total Energy : Line 257  C-- Total Energy :
257          mon_var='TotEnerg'          mon_var='TotEnerg'
258          CALL MON_OUT_RL(mon_var, theEnergy, mon_sufx(0), myThid)          CALL MON_OUT_RL(mon_var, theEnergy, mon_sufx(0), myThid)
259    
260    C-- Surface fluxes
261    c       IF ( fluidIsWater .AND. monitorSelect.GE.3 ) THEN
262    c          CALL MON_WRITESTATS_RL( 1, icFrwAtm,'atmFrW',
263    c    &            maskInC, maskInC, rA , drF, dummyRL, myThid )
264    c       ENDIF
265            IF ( thSIceBalanceAtmFW.NE.0 ) THEN
266             CALL MON_OUT_RL('adjustFrW',adjustFrW,mon_string_none,myThid)
267            ENDIF
268    
269          IF ( MASTER_CPU_IO(myThid) ) THEN          IF ( MASTER_CPU_IO(myThid) ) THEN
270  C--   only the master thread is allowed to switch On/Off mon_write_stdout  C--   only the master thread is allowed to switch On/Off mon_write_stdout
271  C     & mon_write_mnc (since it is the only thread that uses those flags):  C     & mon_write_mnc (since it is the only thread that uses those flags):
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22