Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.2 by adcroft, Fri Feb 2 21:36:29 2001 UTC | revision 1.4 by edhill, Thu Oct 9 04:19:19 2003 UTC | |
|---|---|---|
| # | Line 1 | Line 1 |
| 1 | C $Header$ | C $Header$ |
| 2 | C $Name$ | C $Name$ |
| 3 | ||
| 4 | #include "CPP_OPTIONS.h" | #include "DEBUG_OPTIONS.h" |
| 5 | ||
| 6 | SUBROUTINE CHKSUM_TILED( str,fld,NN,bi,bj,myThid ) | SUBROUTINE CHKSUM_TILED( str,fld,NN,bi,bj,myThid ) |
| 7 | IMPLICIT NONE | IMPLICIT NONE |
| # | Line 42 C Local | Line 42 C Local |
| 42 | ENDDO | ENDDO |
| 43 | Frms=sqrt(Frms/float(cnt)) | Frms=sqrt(Frms/float(cnt)) |
| 44 | ||
| 45 | write(0,'(a,1p4e12.5,1x,a)') | write(*,'(a,1p4e12.5,1x,a)') |
| 46 | & 'CHKSUM_TILED: ',Fmin,Fmax,Fmn,Frms,str | & 'CHKSUM_TILED: ',Fmin,Fmax,Fmn,Frms,str |
| 47 | ||
| 48 | RETURN | RETURN |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |