/[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.11 by edhill, Fri Mar 19 03:28:37 2004 UTC
# Line 5  C $Name$ Line 5  C $Name$
5                
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    
8        SUBROUTINE MNC_INIT()        SUBROUTINE MNC_INIT( myThid )
9    
10  #include "mnc_common.h"  #include "mnc_common.h"
11    
12  C     Arguments  C     Arguments
13          integer myThid
14    
15  C     Local Variables  C     Local Variables
16        integer i,j, g        integer i,j, g, v
17        character blank*(MNC_MAX_CHAR)        character blank*(MNC_MAX_CHAR)
18    
19  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
20        DO i = 1,mnc_max_char        DO i = 1,MNC_MAX_CHAR
21          blank(i:i) = ' ';          blank(i:i) = ' ';
22        ENDDO        ENDDO
23        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 36  C     Write blanks or zeros to all the n
36          ENDDO          ENDDO
37        ENDDO        ENDDO
38    
39    C     The outer tables
40        DO g = 1,MNC_MAX_ID        DO g = 1,MNC_MAX_ID
41          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)
42            mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
43            mnc_cw_vgind(g) = 0
44          mnc_cw_ndim(g) = 0          mnc_cw_ndim(g) = 0
45          DO i = 1,MNC_CW_MAX_I          DO i = 1,MNC_CW_MAX_I
46            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)
47              mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
48              mnc_cw_vinm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
49              mnc_cw_vdnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
50              mnc_cw_vtat(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
51            mnc_cw_dims(i,g) = 0            mnc_cw_dims(i,g) = 0
52            mnc_cw_is(i,g) = 0            mnc_cw_is(i,g) = 0
53            mnc_cw_ie(i,g) = 0            mnc_cw_ie(i,g) = 0
54              mnc_cw_viat(i,g) = 0
55              mnc_cw_vdat(i,g) = 0.0D0
56            ENDDO
57            DO i = 1,3
58              mnc_cw_vnat(i,g) = 0
59            ENDDO
60            DO i = 1,2
61               mnc_cw_vbij(i,g) = 0
62          ENDDO          ENDDO
63        ENDDO        ENDDO
64    
# Line 51  C     Write blanks or zeros to all the n Line 67  C     Write blanks or zeros to all the n
67    
68  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
69    
70        SUBROUTINE MNC_DUMP()        SUBROUTINE MNC_DUMP( myThid )
71          INTEGER myThid
72          CALL MNC_DUMP_ALL(5, 20, myThid)
73          RETURN
74          END
75    
76    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
77    
78          SUBROUTINE MNC_DUMP_ALL( n_id, n_items, myThid )
79    
80  #include "mnc_common.h"  #include "mnc_common.h"
81    
82  C     Arguments  C     Arguments
83          integer n_id, n_items, myThid
84    
85  C     Local Variables  C     Local Variables
86        integer i,j, n_id        integer i,j
87    
88  C     n_id = mnc_max_id  C     n_id = mnc_max_id
       n_id = 5  
89    
90        write(*,*) 'mnc_f_names :'        write(*,*) 'mnc_f_names :'
91        DO i = 1,n_id        DO i = 1,n_id
92          write(*,'(a,a40)') '  :', mnc_f_names(i)          write(*,'(i3,a,a40)') i,':', mnc_f_names(i)
93        ENDDO        ENDDO
94        write(*,*) 'mnc_g_names :'        write(*,*) 'mnc_g_names :'
95        DO i = 1,n_id        DO i = 1,n_id
96          write(*,'(a,a40)') '  :', mnc_g_names(i)          write(*,'(i3,a,a40)') i,':', mnc_g_names(i)
97        ENDDO        ENDDO
98        write(*,*) 'mnc_v_names :'        write(*,*) 'mnc_v_names :'
99        DO i = 1,n_id        DO i = 1,n_id
100          write(*,'(a,a40)') '  :', mnc_v_names(i)          write(*,'(i3,a,a40)') i,':', mnc_v_names(i)
101        ENDDO        ENDDO
102        write(*,*) 'mnc_d_names :'        write(*,*) 'mnc_d_names :'
103        DO i = 1,n_id        DO i = 1,n_id
104          write(*,'(a,a40)') '  :', mnc_d_names(i)          write(*,'(i3,a,a40)') i,':', mnc_d_names(i)
105        ENDDO        ENDDO
106    
107        write(*,*) 'mnc_d_ids, mnc_d_size :'        write(*,*) 'mnc_d_ids, mnc_d_size :'
108        DO i = 1,n_id        DO i = 1,n_id
109          write(*,*) mnc_d_ids(i), mnc_d_size(i)          write(*,*) i,': ',mnc_d_ids(i), mnc_d_size(i)
110        ENDDO        ENDDO
111    
112        write(*,*) 'mnc_f_info :'        write(*,*) 'mnc_f_info :'
113        DO i = 1,n_id        DO i = 1,n_id
114          write(*,*) (mnc_f_info(i,j), j=1,30)          write(*,*) i,': ',(mnc_f_info(i,j), j=1,n_items)
115        ENDDO        ENDDO
116        write(*,*) 'mnc_fd_ind :'        write(*,*) 'mnc_fd_ind :'
117        DO i = 1,n_id        DO i = 1,n_id
118          write(*,*) (mnc_fd_ind(i,j), j=1,30)          write(*,*) i,': ',(mnc_fd_ind(i,j), j=1,n_items)
119        ENDDO        ENDDO
120        write(*,*) 'mnc_fv_ids :'        write(*,*) 'mnc_fv_ids :'
121        DO i = 1,n_id        DO i = 1,n_id
122          write(*,*) (mnc_fv_ids(i,j), j=1,30)          write(*,*) i,': ',(mnc_fv_ids(i,j), j=1,n_items)
123        ENDDO        ENDDO
124        write(*,*) 'mnc_f_alld :'        write(*,*) 'mnc_f_alld :'
125        DO i = 1,n_id        DO i = 1,n_id
126          write(*,*) (mnc_f_alld(i,j), j=1,30)          write(*,*) i,': ',(mnc_f_alld(i,j), j=1,n_items)
127        ENDDO        ENDDO
128    
129        RETURN        RETURN
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22