Parent Directory | Revision Log | Revision Graph | Patch
revision 1.5 by cnh, Mon Jun 18 17:39:59 2001 UTC | revision 1.6 by adcroft, Tue Jun 19 14:37:29 2001 UTC | |
---|---|---|
# | Line 53 C === Local variables ==== | Line 53 C === Local variables ==== |
53 | _GLOBAL_SUM_R8(theMean,myThid) | _GLOBAL_SUM_R8(theMean,myThid) |
54 | tmpVal=float(numPnts) | tmpVal=float(numPnts) |
55 | _GLOBAL_SUM_R8(tmpVal,myThid) | _GLOBAL_SUM_R8(tmpVal,myThid) |
56 | IF (tmpVal.NE.0.) theMean=theMean*tmpVal | IF (tmpVal.NE.0.) theMean=theMean/tmpVal |
57 | ||
58 | CALL MON_OUT_RL( mon_string_none, theMax, mon_foot_max ) | CALL MON_OUT_RL( mon_string_none, theMax, mon_foot_max ) |
59 | CALL MON_OUT_RL( mon_string_none, theMean, mon_foot_mean ) | CALL MON_OUT_RL( mon_string_none, theMean, mon_foot_mean ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |