/[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.20 by edhill, Sat Sep 10 18:30:07 2005 UTC revision 1.21 by edhill, Fri Feb 24 20:39:10 2006 UTC
# Line 55  C     Blank the CW tables Line 55  C     Blank the CW tables
55          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)
56          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)
57          mnc_cw_vgind(g) = 0          mnc_cw_vgind(g) = 0
58            mnc_cw_vfmv(g) = 0
59          mnc_cw_ndim(g) = 0          mnc_cw_ndim(g) = 0
60          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)
61          mnc_cw_fgud(g) = 0          mnc_cw_fgud(g) = 0
# Line 78  C       mnc_cw_cvnm(g)(1:MNC_MAX_CHAR) = Line 79  C       mnc_cw_cvnm(g)(1:MNC_MAX_CHAR) =
79          ENDDO          ENDDO
80          DO i = 1,2          DO i = 1,2
81             mnc_cw_vbij(i,g) = 0             mnc_cw_vbij(i,g) = 0
82               mnc_cw_vmvi(i,g) = 0
83               mnc_cw_vmvr(i,g) = 0.0
84               mnc_cw_vmvd(i,g) = 0.0D0
85  C          mnc_cw_cvse(i,g) = 0  C          mnc_cw_cvse(i,g) = 0
86          ENDDO          ENDDO
87        ENDDO        ENDDO
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22