/[MITgcm]/MITgcm/pkg/debug/chksum_tiled.F
ViewVC logotype

Diff of /MITgcm/pkg/debug/chksum_tiled.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by adcroft, Fri Feb 2 21:36:29 2001 UTC revision 1.3 by heimbach, Tue Apr 10 22:35:27 2001 UTC
# 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
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22