/[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.18 by jmc, Wed Aug 1 18:22:41 2012 UTC revision 1.19 by jmc, Mon Sep 3 19:41:14 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)  c     _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 245  C-- 2nd  level (volume-mean) Temp. : Line 245  C-- 2nd  level (volume-mean) Temp. :
245          CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid)          CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid)
246    
247  C-- Total Energy :  C-- Total Energy :
248          CALL  MON_CALC_STATS_RL(          CALL MON_CALC_STATS_RL(
249       I                1, Qice1, locMask, maskInC, rA, locDr,       I                1, Qice1, locMask, maskInC, rA, locDr,
250       O                theMin0,theMax0,theMean1,theSD,theDel2,theVolG,       O                theMin0,theMax0,theMean1,theSD,theDel2,theVolG,
251       I                myThid )       I                myThid )
252          CALL  MON_CALC_STATS_RL(          CALL MON_CALC_STATS_RL(
253       I                1, Qice2, locMask, maskInC, rA, locDr,       I                1, Qice2, locMask, maskInC, rA, locDr,
254       O                theMin0,theMax0,theMean2,theSD,theDel2,theVolG,       O                theMin0,theMax0,theMean2,theSD,theDel2,theVolG,
255       I                myThid )       I                myThid )
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22