/[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.7 by edhill, Thu Jan 29 05:30:37 2004 UTC revision 1.13 by edhill, Mon Mar 29 03:33:52 2004 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "MNC_OPTIONS.h"  #include "MNC_OPTIONS.h"
5                
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    CBOP
8    C     !ROUTINE: MNC_INIT
9    
10        SUBROUTINE MNC_INIT()  C     !INTERFACE:
11          SUBROUTINE MNC_INIT( myThid )
12    
13    C     !DESCRIPTION:
14    C     Initialize (zero) the look-up tables.
15          
16    C     !USES:
17  #include "mnc_common.h"  #include "mnc_common.h"
18    
19  C     Arguments  C     !INPUT PARAMETERS:
20          integer myThid
21    
22  C     Local Variables  C     !LOCAL VARIABLES:
23        integer i,j, g        integer i,j, g, v
24        character blank*(MNC_MAX_CHAR)        character blank*(MNC_MAX_CHAR)
25    CEOP
26    
27  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
28        DO i = 1,mnc_max_char        DO i = 1,MNC_MAX_CHAR
29          blank(i:i) = ' ';          blank(i:i) = ' ';
30        ENDDO        ENDDO
31        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 35  C     Write blanks or zeros to all the n Line 44  C     Write blanks or zeros to all the n
44          ENDDO          ENDDO
45        ENDDO        ENDDO
46    
47    C     The outer tables
48        DO g = 1,MNC_MAX_ID        DO g = 1,MNC_MAX_ID
49          mnc_cw_gname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_cw_gname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
50            mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
51            mnc_cw_vgind(g) = 0
52          mnc_cw_ndim(g) = 0          mnc_cw_ndim(g) = 0
53            mnc_cw_fgnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
54            mnc_cw_fgud(g) = 0
55          DO i = 1,MNC_CW_MAX_I          DO i = 1,MNC_CW_MAX_I
56            mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)            mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
57              mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
58              mnc_cw_vinm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
59              mnc_cw_vdnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
60              mnc_cw_vtat(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
61            mnc_cw_dims(i,g) = 0            mnc_cw_dims(i,g) = 0
62            mnc_cw_is(i,g) = 0            mnc_cw_is(i,g) = 0
63            mnc_cw_ie(i,g) = 0            mnc_cw_ie(i,g) = 0
64              mnc_cw_viat(i,g) = 0
65              mnc_cw_vdat(i,g) = 0.0D0
66            ENDDO
67            DO i = 1,3
68              mnc_cw_vnat(i,g) = 0
69            ENDDO
70            DO i = 1,2
71               mnc_cw_vbij(i,g) = 0
72          ENDDO          ENDDO
73        ENDDO        ENDDO
74    
# Line 50  C     Write blanks or zeros to all the n Line 76  C     Write blanks or zeros to all the n
76        END        END
77    
78  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
79    CBOP
80    C     !ROUTINE: MNC_DUMP
81    
82        SUBROUTINE MNC_DUMP()  C     !INTERFACE:
83          SUBROUTINE MNC_DUMP( myThid )
84    
85  #include "mnc_common.h"  C     !DESCRIPTION:
86    C     Create a short summary of the look-up tables.
87          
88    C     !INPUT PARAMETERS:
89          INTEGER myThid
90    CEOP
91          CALL MNC_DUMP_ALL(5, 20, myThid)
92          RETURN
93          END
94    
95    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
96    CBOP
97    C     !ROUTINE: MNC_DUMP_ALL
98    
99  C     Arguments  C     !INTERFACE:
100          SUBROUTINE MNC_DUMP_ALL( n_id, n_items, myThid )
101    
102    C     !DESCRIPTION:
103    C     Create a short summary of the look-up tables.
104          
105    C     !USES:
106    #include "mnc_common.h"
107    
108  C     Local Variables  C     !INPUT PARAMETERS:
109        integer i,j, n_id        integer n_id, n_items, myThid
110    
111  C     n_id = mnc_max_id  C     !LOCAL VARIABLES:
112        n_id = 5        integer i,j
113    CEOP
114    
115        write(*,*) 'mnc_f_names :'        write(*,*) 'mnc_f_names :'
116        DO i = 1,n_id        DO i = 1,n_id
117          write(*,'(a,a40)') '  :', mnc_f_names(i)          write(*,'(i3,a,a40)') i,':', mnc_f_names(i)
118        ENDDO        ENDDO
119        write(*,*) 'mnc_g_names :'        write(*,*) 'mnc_g_names :'
120        DO i = 1,n_id        DO i = 1,n_id
121          write(*,'(a,a40)') '  :', mnc_g_names(i)          write(*,'(i3,a,a40)') i,':', mnc_g_names(i)
122        ENDDO        ENDDO
123        write(*,*) 'mnc_v_names :'        write(*,*) 'mnc_v_names :'
124        DO i = 1,n_id        DO i = 1,n_id
125          write(*,'(a,a40)') '  :', mnc_v_names(i)          write(*,'(i3,a,a40)') i,':', mnc_v_names(i)
126        ENDDO        ENDDO
127        write(*,*) 'mnc_d_names :'        write(*,*) 'mnc_d_names :'
128        DO i = 1,n_id        DO i = 1,n_id
129          write(*,'(a,a40)') '  :', mnc_d_names(i)          write(*,'(i3,a,a40)') i,':', mnc_d_names(i)
130        ENDDO        ENDDO
131    
132        write(*,*) 'mnc_d_ids, mnc_d_size :'        write(*,*) 'mnc_d_ids, mnc_d_size :'
133        DO i = 1,n_id        DO i = 1,n_id
134          write(*,*) mnc_d_ids(i), mnc_d_size(i)          write(*,*) i,': ',mnc_d_ids(i), mnc_d_size(i)
135        ENDDO        ENDDO
136    
137        write(*,*) 'mnc_f_info :'        write(*,*) 'mnc_f_info :'
138        DO i = 1,n_id        DO i = 1,n_id
139          write(*,*) (mnc_f_info(i,j), j=1,30)          write(*,*) i,': ',(mnc_f_info(i,j), j=1,n_items)
140        ENDDO        ENDDO
141        write(*,*) 'mnc_fd_ind :'        write(*,*) 'mnc_fd_ind :'
142        DO i = 1,n_id        DO i = 1,n_id
143          write(*,*) (mnc_fd_ind(i,j), j=1,30)          write(*,*) i,': ',(mnc_fd_ind(i,j), j=1,n_items)
144        ENDDO        ENDDO
145        write(*,*) 'mnc_fv_ids :'        write(*,*) 'mnc_fv_ids :'
146        DO i = 1,n_id        DO i = 1,n_id
147          write(*,*) (mnc_fv_ids(i,j), j=1,30)          write(*,*) i,': ',(mnc_fv_ids(i,j), j=1,n_items)
148        ENDDO        ENDDO
149        write(*,*) 'mnc_f_alld :'        write(*,*) 'mnc_f_alld :'
150        DO i = 1,n_id        DO i = 1,n_id
151          write(*,*) (mnc_f_alld(i,j), j=1,30)          write(*,*) i,': ',(mnc_f_alld(i,j), j=1,n_items)
152        ENDDO        ENDDO
153    
154        RETURN        RETURN
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22