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

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

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

revision 1.2 by jmc, Wed Jun 29 23:07:34 2005 UTC revision 1.3 by jmc, Tue Feb 21 01:23:57 2006 UTC
# Line 78  C-      write a kind of header: Line 78  C-      write a kind of header:
78                iL = iL+3                iL = iL+3
79              ENDIF              ENDIF
80            ENDDO            ENDDO
81            WRITE(nUnit,'(2A)') msgBuf(1:iL)            WRITE(nUnit,'(A)') msgBuf(1:iL)
82            DO j=1,diagSt_nbFlds(n),10            DO j=1,diagSt_nbFlds(n),10
83              WRITE(nUnit,'(A,20A)')      '# Fields       :',              WRITE(nUnit,'(A,20A)')      '# Fields       :',
84       &        (' ', diagSt_Flds(m,n), m=j,MIN(diagSt_nbFlds(n),j+9) )       &        (' ', diagSt_Flds(m,n), m=j,MIN(diagSt_nbFlds(n),j+9) )
85            ENDDO            ENDDO
86              DO j=1,diagSt_nbFlds(n),50
87                WRITE(nUnit,'(A,50I4)')   '# Nb of levels : ',
88         &         ( kdiag(jSdiag(m,n)), m=j,MIN(diagSt_nbFlds(n),j+49) )
89              ENDDO
90            WRITE(nUnit,'(2A)') '# end of header ----------------------',            WRITE(nUnit,'(2A)') '# end of header ----------------------',
91       &                        '--------------------------------------'       &                        '--------------------------------------'
92            WRITE(nUnit,'(A)') ' '            WRITE(nUnit,'(A)') ' '
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22