/[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.15 by edhill, Mon Apr 5 06:01:07 2004 UTC revision 1.16 by edhill, Wed Oct 20 21:26:14 2004 UTC
# Line 54  C     Blank the CW tables Line 54  C     Blank the CW tables
54          mnc_cw_ndim(g) = 0          mnc_cw_ndim(g) = 0
55          mnc_cw_fgnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_cw_fgnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
56          mnc_cw_fgud(g) = 0          mnc_cw_fgud(g) = 0
57            mnc_cw_fgis(g) = 0
58          DO i = 1,MNC_CW_MAX_I          DO i = 1,MNC_CW_MAX_I
59            mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)            mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
60            mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)            mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22