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

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

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

revision 1.1 by jmc, Mon Dec 13 21:43:54 2004 UTC revision 1.2 by jmc, Tue Dec 14 02:30:58 2004 UTC
# Line 83  CEOP Line 83  CEOP
83          DO i = 1,NLEN          DO i = 1,NLEN
84            dn_blnk(i:i) = ' '            dn_blnk(i:i) = ' '
85          ENDDO          ENDDO
86          WRITE( diag_mnc_bn, '(A,A)' ) 'diag.', pref(1:ilen)  c       WRITE( diag_mnc_bn, '(A,A)' ) 'diag.', pref(1:ilen)
87            WRITE( diag_mnc_bn, '(A)' ) pref(1:ilen)
88    
89  C       Update the record dimension by writing the iteration number  C       Update the record dimension by writing the iteration number
90          CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid)          CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22