/[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.7 by edhill, Thu Jan 29 05:30:37 2004 UTC revision 1.8 by edhill, Sat Jan 31 04:13:09 2004 UTC
# Line 12  C---+----1----+----2----+----3----+----4 Line 12  C---+----1----+----2----+----3----+----4
12  C     Arguments  C     Arguments
13    
14  C     Local Variables  C     Local Variables
15        integer i,j, g        integer i,j, g, v
16        character blank*(MNC_MAX_CHAR)        character blank*(MNC_MAX_CHAR)
17    
18  C     Write blanks or zeros to all the name and ID tables  C     Write blanks or zeros to all the internal names and ID tables
19        DO i = 1,mnc_max_char        DO i = 1,mnc_max_char
20          blank(i:i) = ' ';          blank(i:i) = ' ';
21        ENDDO        ENDDO
# Line 35  C     Write blanks or zeros to all the n Line 35  C     Write blanks or zeros to all the n
35          ENDDO          ENDDO
36        ENDDO        ENDDO
37    
38    C     The outer tables
39        DO g = 1,MNC_MAX_ID        DO g = 1,MNC_MAX_ID
40          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)
41            mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
42            mnc_cw_vgind(g) = 0
43          mnc_cw_ndim(g) = 0          mnc_cw_ndim(g) = 0
44          DO i = 1,MNC_CW_MAX_I          DO i = 1,MNC_CW_MAX_I
45            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)
46              mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
47              mnc_cw_vinm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
48              mnc_cw_vdnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
49              mnc_cw_vtat(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
50            mnc_cw_dims(i,g) = 0            mnc_cw_dims(i,g) = 0
51            mnc_cw_is(i,g) = 0            mnc_cw_is(i,g) = 0
52            mnc_cw_ie(i,g) = 0            mnc_cw_ie(i,g) = 0
53              mnc_cw_viat(i,g) = 0
54              mnc_cw_vdat(i,g) = 0.0D0
55            ENDDO
56            DO i = 1,3
57              mnc_cw_vnat(i,g) = 0
58          ENDDO          ENDDO
59        ENDDO        ENDDO
60    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22