16 |
#include "SIZE.h" |
#include "SIZE.h" |
17 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
18 |
#include "DYNVARS.h" |
#include "DYNVARS.h" |
19 |
|
#include "MONITOR.h" |
20 |
|
|
21 |
C === Routine arguments === |
C === Routine arguments === |
22 |
INTEGER myThid |
INTEGER myThid |
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 |
_BEGIN_MASTER( myThid ) |
CALL MON_OUT_RL( mon_string_none, theMax, mon_foot_max ) |
59 |
WRITE(*,'(A,29x,A,1PE22.14)') |
CALL MON_OUT_RL( mon_string_none, theMean, mon_foot_mean ) |
|
& 'MON_KE: ',' KE max=',theMax |
|
|
WRITE(*,'(A,29x,A,1PE22.14)') |
|
|
& 'MON_KE: ','KE mean=',theMean |
|
|
_END_MASTER( ) |
|
60 |
|
|
61 |
RETURN |
RETURN |
62 |
END |
END |