52 |
_GLOBAL_SUM_R8(theMean,myThid) |
_GLOBAL_SUM_R8(theMean,myThid) |
53 |
tmpVal=float(numPnts) |
tmpVal=float(numPnts) |
54 |
_GLOBAL_SUM_R8(tmpVal,myThid) |
_GLOBAL_SUM_R8(tmpVal,myThid) |
55 |
theMean=theMean/tmpVal |
IF (tmpVal.NE.0.) theMean=theMean*tmpVal |
56 |
|
|
57 |
_BEGIN_MASTER( myThid ) |
_BEGIN_MASTER( myThid ) |
58 |
WRITE(*,'(A,24x,A,1PE22.14)') |
WRITE(*,'(A,29x,A,1PE22.14)') |
59 |
& 'MON_KE: ',' max=',theMax |
& 'MON_KE: ',' KE max=',theMax |
60 |
WRITE(*,'(A,24x,A,1PE22.14)') |
WRITE(*,'(A,29x,A,1PE22.14)') |
61 |
& 'MON_KE: ',' mean=',theMean |
& 'MON_KE: ','KE mean=',theMean |
62 |
_END_MASTER( ) |
_END_MASTER( ) |
63 |
|
|
64 |
RETURN |
RETURN |