/[MITgcm]/MITgcm/pkg/mnc/mnc_init.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_init.F

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

revision 1.14 by edhill, Fri Apr 2 16:12:48 2004 UTC revision 1.15 by edhill, Mon Apr 5 06:01:07 2004 UTC
# Line 46  C     Write blanks or zeros to all the i Line 46  C     Write blanks or zeros to all the i
46          ENDDO          ENDDO
47        ENDDO        ENDDO
48    
49  C     The outer tables  C     Blank the CW tables
50        DO g = 1,MNC_MAX_ID        DO g = 1,MNC_MAX_ID
51          mnc_cw_gname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_cw_gname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
52          mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22