/[MITgcm]/MITgcm/pkg/mnc/mnc_init.F
ViewVC logotype

Annotation of /MITgcm/pkg/mnc/mnc_init.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.8 - (hide annotations) (download)
Sat Jan 31 04:13:09 2004 UTC (20 years, 4 months ago) by edhill
Branch: MAIN
CVS Tags: hrcube4, checkpoint52j_post, checkpoint52k_post, checkpoint52j_pre, hrcube_3
Changes since 1.7: +15 -3 lines
 o more work on the file-independent layer ("wrapper")

1 edhill 1.8 C $Header: /u/u3/gcmpack/MITgcm/pkg/mnc/mnc_init.F,v 1.7 2004/01/29 05:30:37 edhill Exp $
2 edhill 1.1 C $Name: $
3    
4     #include "MNC_OPTIONS.h"
5    
6 edhill 1.6 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7 edhill 1.1
8     SUBROUTINE MNC_INIT()
9    
10     #include "mnc_common.h"
11    
12     C Arguments
13    
14     C Local Variables
15 edhill 1.8 integer i,j, g, v
16 edhill 1.1 character blank*(MNC_MAX_CHAR)
17    
18 edhill 1.8 C Write blanks or zeros to all the internal names and ID tables
19 edhill 1.1 DO i = 1,mnc_max_char
20     blank(i:i) = ' ';
21     ENDDO
22 edhill 1.2 mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
23 edhill 1.5 DO i = 1,MNC_MAX_ID
24     mnc_d_size(i) = 0
25     mnc_d_ids(i) = 0
26 edhill 1.1 mnc_f_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
27 edhill 1.2 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)
29     mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
30 edhill 1.3 DO j = 1,MNC_MAX_INFO
31     mnc_f_info(i,j) = 0
32     mnc_fv_ids(i,j) = 0
33     mnc_fd_ind(i,j) = 0
34 edhill 1.4 mnc_f_alld(i,j) = 0
35 edhill 1.3 ENDDO
36     ENDDO
37    
38 edhill 1.8 C The outer tables
39 edhill 1.6 DO g = 1,MNC_MAX_ID
40 edhill 1.7 mnc_cw_gname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
41 edhill 1.8 mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
42     mnc_cw_vgind(g) = 0
43 edhill 1.6 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 edhill 1.8 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 edhill 1.6 mnc_cw_dims(i,g) = 0
51     mnc_cw_is(i,g) = 0
52     mnc_cw_ie(i,g) = 0
53 edhill 1.8 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 edhill 1.6 ENDDO
59     ENDDO
60    
61 edhill 1.3 RETURN
62     END
63    
64 edhill 1.6 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
65 edhill 1.3
66     SUBROUTINE MNC_DUMP()
67    
68     #include "mnc_common.h"
69    
70     C Arguments
71    
72     C Local Variables
73     integer i,j, n_id
74    
75     C n_id = mnc_max_id
76 edhill 1.4 n_id = 5
77 edhill 1.3
78     write(*,*) 'mnc_f_names :'
79     DO i = 1,n_id
80 edhill 1.5 write(*,'(a,a40)') ' :', mnc_f_names(i)
81 edhill 1.3 ENDDO
82     write(*,*) 'mnc_g_names :'
83     DO i = 1,n_id
84 edhill 1.5 write(*,'(a,a40)') ' :', mnc_g_names(i)
85 edhill 1.3 ENDDO
86     write(*,*) 'mnc_v_names :'
87     DO i = 1,n_id
88 edhill 1.5 write(*,'(a,a40)') ' :', mnc_v_names(i)
89 edhill 1.3 ENDDO
90     write(*,*) 'mnc_d_names :'
91     DO i = 1,n_id
92 edhill 1.5 write(*,'(a,a40)') ' :', mnc_d_names(i)
93     ENDDO
94    
95     write(*,*) 'mnc_d_ids, mnc_d_size :'
96     DO i = 1,n_id
97     write(*,*) mnc_d_ids(i), mnc_d_size(i)
98 edhill 1.3 ENDDO
99    
100     write(*,*) 'mnc_f_info :'
101     DO i = 1,n_id
102 edhill 1.4 write(*,*) (mnc_f_info(i,j), j=1,30)
103 edhill 1.3 ENDDO
104     write(*,*) 'mnc_fd_ind :'
105     DO i = 1,n_id
106 edhill 1.4 write(*,*) (mnc_fd_ind(i,j), j=1,30)
107 edhill 1.3 ENDDO
108     write(*,*) 'mnc_fv_ids :'
109     DO i = 1,n_id
110 edhill 1.4 write(*,*) (mnc_fv_ids(i,j), j=1,30)
111     ENDDO
112     write(*,*) 'mnc_f_alld :'
113     DO i = 1,n_id
114     write(*,*) (mnc_f_alld(i,j), j=1,30)
115 edhill 1.1 ENDDO
116    
117 edhill 1.2 RETURN
118 edhill 1.1 END
119    
120 edhill 1.6 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

  ViewVC Help
Powered by ViewVC 1.1.22