/[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.18 by edhill, Wed Dec 8 15:50:46 2004 UTC revision 1.19 by edhill, Fri Dec 17 21:28:26 2004 UTC
# Line 55  C     Blank the CW tables Line 55  C     Blank the CW tables
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          mnc_cw_fgis(g) = 0
58    C       mnc_cw_cvnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
59          DO i = 1,MNC_CW_MAX_I          DO i = 1,MNC_CW_MAX_I
60            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)
61            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)
# Line 72  C     Blank the CW tables Line 73  C     Blank the CW tables
73          ENDDO          ENDDO
74          DO i = 1,2          DO i = 1,2
75             mnc_cw_vbij(i,g) = 0             mnc_cw_vbij(i,g) = 0
76    C          mnc_cw_cvse(i,g) = 0
77          ENDDO          ENDDO
78        ENDDO        ENDDO
79          
80    C     DO i = 1,MNC_CW_CVDAT
81    C     mnc_cw_cvdt(i) = 0.0D0
82    C     ENDDO
83    
84        RETURN        RETURN
85        END        END
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22