/[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.16 by edhill, Wed Oct 20 21:26:14 2004 UTC revision 1.17 by edhill, Tue Nov 2 18:06:36 2004 UTC
# Line 28  C     !LOCAL VARIABLES: Line 28  C     !LOCAL VARIABLES:
28    
29  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
30        DO i = 1,MNC_MAX_CHAR        DO i = 1,MNC_MAX_CHAR
31          blank(i:i) = ' ';          blank(i:i) = ' '
32        ENDDO        ENDDO
33        mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)        mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
34        DO i = 1,MNC_MAX_ID        DO i = 1,MNC_MAX_ID
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22