/[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.9 by edhill, Mon Mar 8 21:15:49 2004 UTC revision 1.10 by edhill, Tue Mar 9 14:43:16 2004 UTC
# Line 16  C     Local Variables Line 16  C     Local Variables
16        character blank*(MNC_MAX_CHAR)        character blank*(MNC_MAX_CHAR)
17    
18  C     Write blanks or zeros to all the internal names 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
22        mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)        mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
# Line 56  C     The outer tables Line 56  C     The outer tables
56          DO i = 1,3          DO i = 1,3
57            mnc_cw_vnat(i,g) = 0            mnc_cw_vnat(i,g) = 0
58          ENDDO          ENDDO
59            DO i = 1,2
60               mnc_cw_vbij(i,g) = 0
61            ENDDO
62        ENDDO        ENDDO
63    
64        RETURN        RETURN
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22