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 |