/[MITgcm]/MITgcm/pkg/land/land_monitor.F
ViewVC logotype

Diff of /MITgcm/pkg/land/land_monitor.F

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

revision 1.12 by jmc, Wed Sep 2 21:42:43 2009 UTC revision 1.13 by jmc, Mon Dec 21 00:15:57 2009 UTC
# Line 45  C     === Functions ==== Line 45  C     === Functions ====
45    
46  C     == Local variables ==  C     == Local variables ==
47  C     nLatBnd    :: Number of latitude bands  C     nLatBnd    :: Number of latitude bands
48  C     msgBuf     :: Informational/error meesage buffer  C     msgBuf     :: Informational/error message buffer
49  C     mon_var    :: Variable sufix name  C     mon_var    :: Variable sufix name
50  C     mon_sufx   :: Latitude band sufix  C     mon_sufx   :: Latitude band sufix
51  C     n, k       :: loop counter  C     n, k       :: loop counter
# Line 70  C     theEnergy  :: total energy Line 70  C     theEnergy  :: total energy
70        _RS yBand(nLatBnd), locDr(land_nLev)        _RS yBand(nLatBnd), locDr(land_nLev)
71        _RL theMin(nLatBnd), theMax(nLatBnd)        _RL theMin(nLatBnd), theMax(nLatBnd)
72        _RL theMean(nLatBnd), theVar(nLatBnd), theVol(nLatBnd)        _RL theMean(nLatBnd), theVar(nLatBnd), theVol(nLatBnd)
73        _RL theMeanG, theVarG, theVolG        _RL theMeanG, theVolG
74        _RL theEng(nLatBnd), theEnergy        _RL theEng(nLatBnd), theEnergy
75    
76        DATA yBand /  0. , -24. , 24. /        DATA yBand /  0. , -24. , 24. /
# Line 131  C--   endif master cpu io Line 131  C--   endif master cpu io
131  C-- Snow thickness :  C-- Snow thickness :
132          CALL MON_STATS_LATBND_RL(          CALL MON_STATS_LATBND_RL(
133       I                1, 1, 1, nLatBnd, yBand,       I                1, 1, 1, nLatBnd, yBand,
134       I                land_hSnow, land_frc, maskH, rA, yC, locDr,       I                land_hSnow, land_frc, maskInC, rA, yC, locDr,
135       O                theMin, theMax, theMean, theVar, theVol,       O                theMin, theMax, theMean, theVar, theVol,
136       I                myThid )       I                myThid )
137          theVolG = 0.          theVolG = 0.
# Line 167  C-- Snow thickness : Line 167  C-- Snow thickness :
167  C-- Surface Temp. :  C-- Surface Temp. :
168          CALL MON_STATS_LATBND_RL(          CALL MON_STATS_LATBND_RL(
169       I                1, 1, 1, nLatBnd, yBand,       I                1, 1, 1, nLatBnd, yBand,
170       I                land_skinT, land_frc, maskH, rA, yC, locDr,       I                land_skinT, land_frc, maskInC, rA, yC, locDr,
171       O                theMin, theMax, theMean, theVar, theVol,       O                theMin, theMax, theMean, theVar, theVol,
172       I                myThid )       I                myThid )
173          theVolG = 0.          theVolG = 0.
# Line 195  C-- Surface Temp. : Line 195  C-- Surface Temp. :
195  C-- 1rst level (volume-mean) Temp. :  C-- 1rst level (volume-mean) Temp. :
196          CALL MON_STATS_LATBND_RL(          CALL MON_STATS_LATBND_RL(
197       I                land_nLev, 1, 1, nLatBnd, yBand,       I                land_nLev, 1, 1, nLatBnd, yBand,
198       I                land_groundT, land_frc, maskH, rA, yC, locDr,       I                land_groundT, land_frc, maskInC, rA, yC, locDr,
199       O                theMin, theMax, theMean, theVar, theVol,       O                theMin, theMax, theMean, theVar, theVol,
200       I                myThid )       I                myThid )
201          theVolG = 0.          theVolG = 0.
# Line 223  C-- 1rst level (volume-mean) Temp. : Line 223  C-- 1rst level (volume-mean) Temp. :
223  C-- 2nd  level (volume-mean) Temp. :  C-- 2nd  level (volume-mean) Temp. :
224          CALL MON_STATS_LATBND_RL(          CALL MON_STATS_LATBND_RL(
225       I                land_nLev, 1, 2, nLatBnd, yBand,       I                land_nLev, 1, 2, nLatBnd, yBand,
226       I                land_groundT, land_frc, maskH, rA, yC, locDr,       I                land_groundT, land_frc, maskInC, rA, yC, locDr,
227       O                theMin, theMax, theMean, theVar, theVol,       O                theMin, theMax, theMean, theVar, theVol,
228       I                myThid )       I                myThid )
229          theVolG = 0.          theVolG = 0.
# Line 254  C-- Total Energy : Line 254  C-- Total Energy :
254          ENDDO          ENDDO
255          CALL MON_STATS_LATBND_RL(          CALL MON_STATS_LATBND_RL(
256       I                land_nLev, 1, 0, nLatBnd, yBand,       I                land_nLev, 1, 0, nLatBnd, yBand,
257       I                land_enthalp, land_frc, maskH, rA, yC, locDr,       I                land_enthalp, land_frc, maskInC, rA, yC, locDr,
258       O                theMin, theMax, theMean, theVar, theVol,       O                theMin, theMax, theMean, theVar, theVol,
259       I                myThid )       I                myThid )
260          theEnergy = 0.          theEnergy = 0.
# Line 271  C-- Total Energy : Line 271  C-- Total Energy :
271  C-- Soil water content (level 1+2):  C-- Soil water content (level 1+2):
272          CALL MON_STATS_LATBND_RL(          CALL MON_STATS_LATBND_RL(
273       I                land_nLev, 1, 0, nLatBnd, yBand,       I                land_nLev, 1, 0, nLatBnd, yBand,
274       I                land_groundW, land_frc, maskH, rA, yC, locDr,       I                land_groundW, land_frc, maskInC, rA, yC, locDr,
275       O                theMin, theMax, theMean, theVar, theVol,       O                theMin, theMax, theMean, theVar, theVol,
276       I                myThid )       I                myThid )
277          theVolG = 0.          theVolG = 0.
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22