/[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.2 by edhill, Tue Jan 6 23:19:27 2004 UTC revision 1.10 by edhill, Tue Mar 9 14:43:16 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        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
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)
23        DO i = 1,mnc_max_id        DO i = 1,MNC_MAX_ID
24            mnc_d_size(i) = 0
25            mnc_d_ids(i)  = 0
26          mnc_f_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_f_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
27          mnc_g_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_g_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
28          mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
29          mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
30          mnc_f_info(i,1) = 0          DO j = 1,MNC_MAX_INFO
31          mnc_f_info(i,2) = 0            mnc_f_info(i,j) = 0
32          mnc_f_info(i,3) = 0            mnc_fv_ids(i,j) = 0
33          mnc_fv_ids(i,1) = 0            mnc_fd_ind(i,j) = 0
34              mnc_f_alld(i,j) = 0
35            ENDDO
36          ENDDO
37    
38    C     The outer tables
39          DO g = 1,MNC_MAX_ID
40            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
44            DO i = 1,MNC_CW_MAX_I
45              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
51              mnc_cw_is(i,g) = 0
52              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
59            DO i = 1,2
60               mnc_cw_vbij(i,g) = 0
61            ENDDO
62          ENDDO
63    
64          RETURN
65          END
66    
67    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
68    
69          SUBROUTINE MNC_DUMP()
70          CALL MNC_DUMP_ALL(5, 20)
71          RETURN
72          END
73    
74    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
75    
76          SUBROUTINE MNC_DUMP_ALL( n_id, n_items )
77    
78    #include "mnc_common.h"
79    
80    C     Arguments
81          integer n_id, n_items
82    
83    C     Local Variables
84          integer i,j
85    
86    C     n_id = mnc_max_id
87    
88          write(*,*) 'mnc_f_names :'
89          DO i = 1,n_id
90            write(*,'(i3,a,a40)') i,':', mnc_f_names(i)
91          ENDDO
92          write(*,*) 'mnc_g_names :'
93          DO i = 1,n_id
94            write(*,'(i3,a,a40)') i,':', mnc_g_names(i)
95          ENDDO
96          write(*,*) 'mnc_v_names :'
97          DO i = 1,n_id
98            write(*,'(i3,a,a40)') i,':', mnc_v_names(i)
99          ENDDO
100          write(*,*) 'mnc_d_names :'
101          DO i = 1,n_id
102            write(*,'(i3,a,a40)') i,':', mnc_d_names(i)
103          ENDDO
104    
105          write(*,*) 'mnc_d_ids, mnc_d_size :'
106          DO i = 1,n_id
107            write(*,*) i,': ',mnc_d_ids(i), mnc_d_size(i)
108          ENDDO
109    
110          write(*,*) 'mnc_f_info :'
111          DO i = 1,n_id
112            write(*,*) i,': ',(mnc_f_info(i,j), j=1,n_items)
113          ENDDO
114          write(*,*) 'mnc_fd_ind :'
115          DO i = 1,n_id
116            write(*,*) i,': ',(mnc_fd_ind(i,j), j=1,n_items)
117          ENDDO
118          write(*,*) 'mnc_fv_ids :'
119          DO i = 1,n_id
120            write(*,*) i,': ',(mnc_fv_ids(i,j), j=1,n_items)
121          ENDDO
122          write(*,*) 'mnc_f_alld :'
123          DO i = 1,n_id
124            write(*,*) i,': ',(mnc_f_alld(i,j), j=1,n_items)
125        ENDDO        ENDDO
126    
127        RETURN        RETURN
128        END        END
129    
130    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22