Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by adcroft, Mon Jun 4 14:25:53 2001 UTC | revision 1.4 by adcroft, Wed Jun 6 14:50:23 2001 UTC | |
---|---|---|
# | Line 55 C === Local variables ==== | Line 55 C === Local variables ==== |
55 | IF (tmpVal.NE.0.) 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |