/[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.1 by jmc, Sun Nov 23 01:20:13 2003 UTC revision 1.2 by jmc, Wed Mar 3 14:16:41 2004 UTC
# Line 72  C---+----1----+----2----+----3----+----4 Line 72  C---+----1----+----2----+----3----+----4
72          CALL MON_OUT_RL('time_sec', myTime,mon_string_none,myThid)          CALL MON_OUT_RL('time_sec', myTime,mon_string_none,myThid)
73                    
74  C-- Ice area and Ice thickness :  C-- Ice area and Ice thickness :
75          CALL  MON_STATS_LATBND_RL(          CALL MON_STATS_LATBND_RL(
76       I                1, 2, yBand,       I                1, 1, 1, 2, yBand,
77       I                iceheight, iceMask, maskH, rA, yC, locDr,       I                iceheight, iceMask, maskH, rA, yC, locDr,
78       O                theMin, theMax, theMean, theVar, theVol,       O                theMin, theMax, theMean, theVar, theVol,
79       I                myThid )       I                myThid )
# Line 94  C-- Ice area and Ice thickness : Line 94  C-- Ice area and Ice thickness :
94          CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid)          CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid)
95    
96  C-- Snow thickness :  C-- Snow thickness :
97          CALL  MON_STATS_LATBND_RL(          CALL MON_STATS_LATBND_RL(
98       I                1, 2, yBand,       I                1, 1, 1, 2, yBand,
99       I                snowheight, iceMask, maskH, rA, yC, locDr,       I                snowheight, iceMask, maskH, rA, yC, locDr,
100       O                theMin, theMax, theMean, theVar, theVol,       O                theMin, theMax, theMean, theVar, theVol,
101       I                myThid )       I                myThid )
# Line 126  C-- Total Energy : Line 126  C-- Total Energy :
126          CALL MON_OUT_RL(mon_var, theEnergy, mon_sufx(0), myThid)          CALL MON_OUT_RL(mon_var, theEnergy, mon_sufx(0), myThid)
127    
128  C-- Surface Temp. :  C-- Surface Temp. :
129          CALL  MON_STATS_LATBND_RL(          CALL MON_STATS_LATBND_RL(
130       I                1, 2, yBand,       I                1, 1, 1, 2, yBand,
131       I                Tsrf, iceMask, maskH, rA, yC, locDr,       I                Tsrf, iceMask, maskH, rA, yC, locDr,
132       O                theMin, theMax, theMean, theVar, theVol,       O                theMin, theMax, theMean, theVar, theVol,
133       I                myThid )       I                myThid )
# Line 147  C-- Surface Temp. : Line 147  C-- Surface Temp. :
147          CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid)          CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid)
148    
149  C-- 1rst level (volume-mean) Temp. :  C-- 1rst level (volume-mean) Temp. :
150          CALL  MON_STATS_LATBND_RL(          CALL MON_STATS_LATBND_RL(
151       I                1, 2, yBand,       I                1, 1, 1, 2, yBand,
152       I                Tice1, iceMask, iceheight, rA, yC, locDr,       I                Tice1, iceMask, iceheight, rA, yC, locDr,
153       O                theMin, theMax, theMean, theVar, theVol,       O                theMin, theMax, theMean, theVar, theVol,
154       I                myThid )       I                myThid )
# Line 172  c       CALL MON_OUT_RL(mon_var, theVol( Line 172  c       CALL MON_OUT_RL(mon_var, theVol(
172          CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid)          CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid)
173                    
174  C-- 2nd  level (volume-mean) Temp. :  C-- 2nd  level (volume-mean) Temp. :
175          CALL  MON_STATS_LATBND_RL(          CALL MON_STATS_LATBND_RL(
176       I                1, 2, yBand,       I                1, 1, 1, 2, yBand,
177       I                Tice2, iceMask, iceheight, rA, yC, locDr,       I                Tice2, iceMask, iceheight, rA, yC, locDr,
178       O                theMin, theMax, theMean, theVar, theVol,       O                theMin, theMax, theMean, theVar, theVol,
179       I                myThid )       I                myThid )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22