Parent Directory | Revision Log | Revision Graph | Patch
revision 1.2 by adcroft, Mon Jun 4 13:53:35 2001 UTC | revision 1.3 by adcroft, Mon Jun 4 14:25:53 2001 UTC | |
---|---|---|
# | Line 52 C === Local variables ==== | Line 52 C === Local variables ==== |
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,24x,A,1PE22.14)') |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |