| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_mnc_init.F |
107 |
FIZHI_MNC_INIT |
dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/fizhi/fizhi_mnc_init.F |
40 |
FIZHI_MNC_INIT |
character*(MNC_MAX_CHAR) name |
|
./pkg/fizhi/fizhi_mnc_init.F |
41 |
FIZHI_MNC_INIT |
character*(MNC_MAX_CHAR) dn(CW_MAX_LOC) |
|
./pkg/fizhi/fizhi_mnc_init.F |
87 |
FIZHI_MNC_INIT |
name(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/land/land_mnc_init.F |
104 |
LAND_MNC_INIT |
name(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/land/land_mnc_init.F |
124 |
LAND_MNC_INIT |
dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/land/land_mnc_init.F |
59 |
LAND_MNC_INIT |
character*(MNC_MAX_CHAR) name |
|
./pkg/land/land_mnc_init.F |
60 |
LAND_MNC_INIT |
character*(MNC_MAX_CHAR) dn(CW_MAX_LOC) |
|
./pkg/mnc/MNC_COMMON.h |
138 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_blank_name |
|
./pkg/mnc/MNC_COMMON.h |
139 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_g_names(MNC_MAX_ID) |
|
./pkg/mnc/MNC_COMMON.h |
140 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_v_names(MNC_MAX_ID) |
|
./pkg/mnc/MNC_COMMON.h |
141 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_d_names(MNC_MAX_ID) |
|
./pkg/mnc/MNC_COMMON.h |
167 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_gname(MNC_MAX_ID) |
|
./pkg/mnc/MNC_COMMON.h |
168 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_dn(MNC_CW_MAX_I,MNC_MAX_ID) |
|
./pkg/mnc/MNC_COMMON.h |
169 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_vname(MNC_MAX_ID) |
|
./pkg/mnc/MNC_COMMON.h |
170 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_vtnm(MNC_CW_MAX_I,MNC_MAX_ID) |
|
./pkg/mnc/MNC_COMMON.h |
171 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_vinm(MNC_CW_MAX_I,MNC_MAX_ID) |
|
./pkg/mnc/MNC_COMMON.h |
172 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_vdnm(MNC_CW_MAX_I,MNC_MAX_ID) |
|
./pkg/mnc/MNC_COMMON.h |
173 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_fgnm(MNC_MAX_ID) |
|
./pkg/mnc/MNC_SIZE.h |
11 |
NO PROCEDURE |
parameter ( MNC_MAX_CHAR = 40 ) |
|
./pkg/mnc/MNC_SIZE.h |
6 |
NO PROCEDURE |
integer MNC_MAX_CHAR, MNC_MAX_CATT |
|
./pkg/mnc/mnc_cw_init.F |
100 |
MNC_CW_INIT |
name(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cw_init.F |
120 |
MNC_CW_INIT |
dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cw_init.F |
55 |
MNC_CW_INIT |
character*(MNC_MAX_CHAR) name |
|
./pkg/mnc/mnc_cw_init.F |
56 |
MNC_CW_INIT |
character*(MNC_MAX_CHAR) dn(CW_MAX_LOC) |
|
./pkg/mnc/mnc_cwrapper.F |
126 |
MNC_CW_DEL_GNAME |
mnc_cw_gname(indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
173 |
MNC_CW_DUMP |
IF (mnc_cw_gname(j)(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
174 |
MNC_CW_DUMP |
& .NE. mnc_blank_name(1:MNC_MAX_CHAR)) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
198 |
MNC_CW_DUMP |
IF (mnc_cw_vname(j)(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
199 |
MNC_CW_DUMP |
& .NE. mnc_blank_name(1:MNC_MAX_CHAR)) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
214 |
MNC_CW_DUMP |
& mnc_cw_vtat(i,j)(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
352 |
MNC_CW_ADD_VNAME |
mnc_cw_vname(indv)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
399 |
MNC_CW_DEL_VNAME |
mnc_cw_vname(indv)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
537 |
MNC_CW_ADD_VATTR_ANY |
IF ((n2-n1+1) .GT. MNC_MAX_CHAR) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
540 |
MNC_CW_ADD_VATTR_ANY |
& tname(n1:n2), ''' has more than ', MNC_MAX_CHAR, |
|
./pkg/mnc/mnc_cwrapper.F |
546 |
MNC_CW_ADD_VATTR_ANY |
n2 = MNC_MAX_CHAR + n1 - 1 |
|
./pkg/mnc/mnc_cwrapper.F |
549 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtnm(n,indv)(1:MNC_MAX_CHAR) = |
|
./pkg/mnc/mnc_cwrapper.F |
550 |
MNC_CW_ADD_VATTR_ANY |
& mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
72 |
MNC_CW_ADD_GNAME |
mnc_cw_gname(indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
77 |
MNC_CW_ADD_GNAME |
mnc_cw_dn(i,indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_file.F |
259 |
MNC_FILE_ADD_ATTR_ANY |
character*(MNC_MAX_CHAR) s1 |
|
./pkg/mnc/mnc_file.F |
279 |
MNC_FILE_ADD_ATTR_ANY |
s1(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_file.F |
367 |
MNC_FILE_CLOSE |
mnc_v_names(k)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_file.F |
380 |
MNC_FILE_CLOSE |
mnc_d_names(j)(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_file.F |
389 |
MNC_FILE_CLOSE |
mnc_g_names(k)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_file.F |
664 |
MNC_FILE_TRY_READ |
character*(MNC_MAX_CHAR) dnames(20) |
|
./pkg/mnc/mnc_file.F |
729 |
MNC_FILE_TRY_READ |
dnames(i)(1:MNC_MAX_CHAR) = mnc_d_names(did)(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_grid.F |
170 |
MNC_GRID_INIT_ALL |
mnc_g_names(indg)(1:MNC_MAX_CHAR) = |
|
./pkg/mnc/mnc_grid.F |
171 |
MNC_GRID_INIT_ALL |
& mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
31 |
MNC_INIT |
character blank*(MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
35 |
MNC_INIT |
DO i = 1,MNC_MAX_CHAR |
|
./pkg/mnc/mnc_init.F |
42 |
MNC_INIT |
mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
55 |
MNC_INIT |
mnc_g_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
56 |
MNC_INIT |
mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
57 |
MNC_INIT |
mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
62 |
MNC_INIT |
mnc_cw_gname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
63 |
MNC_INIT |
mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
67 |
MNC_INIT |
mnc_cw_fgnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
73 |
MNC_INIT |
mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
74 |
MNC_INIT |
mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
75 |
MNC_INIT |
mnc_cw_vinm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
76 |
MNC_INIT |
mnc_cw_vdnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
77 |
MNC_INIT |
mnc_cw_vtat(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_readparms.F |
173 |
MNC_READPARMS |
DO i = 1,MNC_MAX_CHAR |
|
./pkg/regrid/regrid_mnc_init.F |
37 |
REGRID_MNC_INIT |
CHARACTER*(MNC_MAX_CHAR) name |
|
./pkg/regrid/regrid_mnc_init.F |
38 |
REGRID_MNC_INIT |
character*(MNC_MAX_CHAR) dn(CW_MAX_LOC) |
|
./pkg/aim_v23/aim_mnc_init.F |
149 |
AIM_MNC_INIT |
DO j = 1,MNC_MAX_CHAR |
|
./pkg/aim_v23/aim_mnc_init.F |
36 |
AIM_MNC_INIT |
CHARACTER*(MNC_MAX_CHAR) dn(CW_MAX_LOC) |