Parent Directory | Revision Log | Revision Graph | Patch
revision 1.6 by adcroft, Tue Jun 19 14:37:29 2001 UTC | revision 1.7 by adcroft, Mon Jun 25 20:35:23 2001 UTC | |
---|---|---|
# | Line 55 C === Local variables ==== | Line 55 C === Local variables ==== |
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 ,myThid) |
59 | CALL MON_OUT_RL( mon_string_none, theMean, mon_foot_mean ) | CALL MON_OUT_RL( mon_string_none, theMean, mon_foot_mean ,myThid) |
60 | ||
61 | RETURN | RETURN |
62 | END | END |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |