/[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.5 by edhill, Sun Jan 25 00:22:57 2004 UTC revision 1.6 by edhill, Tue Jan 27 05:47:32 2004 UTC
# Line 3  C $Name$ Line 3  C $Name$
3                
4  #include "MNC_OPTIONS.h"  #include "MNC_OPTIONS.h"
5                
6  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    
8        SUBROUTINE MNC_INIT()        SUBROUTINE MNC_INIT()
9    
# Line 12  C======================================= Line 12  C=======================================
12  C     Arguments  C     Arguments
13    
14  C     Local Variables  C     Local Variables
15        integer i,j        integer i,j, g
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 name and ID tables
# 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          DO g = 1,MNC_MAX_ID
39            mnc_cw_names(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
40            mnc_cw_ndim(g) = 0
41            DO i = 1,MNC_CW_MAX_I
42              mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
43              mnc_cw_dims(i,g) = 0
44              mnc_cw_is(i,g) = 0
45              mnc_cw_ie(i,g) = 0
46            ENDDO
47          ENDDO
48    
49        RETURN        RETURN
50        END        END
51    
52  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
53    
54        SUBROUTINE MNC_DUMP()        SUBROUTINE MNC_DUMP()
55    
# Line 94  C     n_id = mnc_max_id Line 105  C     n_id = mnc_max_id
105        RETURN        RETURN
106        END        END
107    
108    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22