/[MITgcm]/MITgcm/pkg/diagnostics/diagstats_ascii_out.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagstats_ascii_out.F

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

revision 1.3 by jmc, Fri Nov 4 01:30:33 2005 UTC revision 1.4 by jmc, Tue Feb 21 01:23:57 2006 UTC
# Line 72  c    &             ' --      min   --  | Line 72  c    &             ' --      min   --  |
72  C     full precision, do not write the volume:  C     full precision, do not write the volume:
73  c         WRITE(nUnit,'(I3,1P4E20.12)') k,(statGlob(i,k,j),i=1,nStats)  c         WRITE(nUnit,'(I3,1P4E20.12)') k,(statGlob(i,k,j),i=1,nStats)
74  C     reduced precision + write the volume (usefull for testing):  C     reduced precision + write the volume (usefull for testing):
75            WRITE(nUnit,'(I3,1P4E18.10,1X,1PE12.5)')            WRITE(nUnit,'(I3,1P5E18.10)')
76       &       k, (statGlob(i,k,j),i=1,nStats), statGlob(0,k,j)       &       k, (statGlob(i,k,j),i=1,nStats), statGlob(0,k,j)
77           ENDDO           ENDDO
78          ENDIF          ENDIF
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22