/[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.22 by edhill, Fri Mar 10 05:50:23 2006 UTC revision 1.23 by edhill, Fri Mar 10 22:01:54 2006 UTC
# Line 40  C     Write blanks or zeros to all the i Line 40  C     Write blanks or zeros to all the i
40        ENDDO        ENDDO
41    
42        mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)        mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
43        DO i = 1,MNC_MAX_ID        DO i = 1,MNC_MAX_FID
         mnc_d_size(i) = 0  
         mnc_d_ids(i)  = 0  
 C  
44          mnc_f_names(i)(1:MNC_MAX_PATH) = bpath(1:MNC_MAX_PATH)          mnc_f_names(i)(1:MNC_MAX_PATH) = bpath(1:MNC_MAX_PATH)
 C  
         mnc_g_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)  
         mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)  
         mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)  
45          DO j = 1,MNC_MAX_INFO          DO j = 1,MNC_MAX_INFO
46            mnc_f_info(i,j) = 0            mnc_f_info(i,j) = 0
47            mnc_fv_ids(i,j) = 0            mnc_fv_ids(i,j) = 0
# Line 56  C Line 49  C
49            mnc_f_alld(i,j) = 0            mnc_f_alld(i,j) = 0
50          ENDDO          ENDDO
51        ENDDO        ENDDO
52          DO i = 1,MNC_MAX_ID
53            mnc_d_size(i) = 0
54            mnc_d_ids(i)  = 0
55            mnc_g_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
56            mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
57            mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
58          ENDDO
59    
60  C     Blank the CW tables  C     Blank the CW tables
61        DO g = 1,MNC_MAX_ID        DO g = 1,MNC_MAX_ID
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22