| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_mnc_init.F |
116 |
FIZHI_MNC_INIT |
IF (hsub_dat(ihsub)(1:1) .EQ. 'x') THEN |
|
./pkg/fizhi/fizhi_mnc_init.F |
133 |
FIZHI_MNC_INIT |
IF ((hsub_dat(ihsub)(1:1) .EQ. 'y') |
|
./pkg/fizhi/fizhi_mnc_init.F |
134 |
FIZHI_MNC_INIT |
& .OR. (hsub_dat(ihsub)(2:2) .EQ. 'y')) THEN |
|
./pkg/fizhi/fizhi_mnc_init.F |
154 |
FIZHI_MNC_INIT |
IF (hsub_dat(ihsub)(1:1) .EQ. 'x') THEN |
|
./pkg/fizhi/fizhi_mnc_init.F |
161 |
FIZHI_MNC_INIT |
IF ((hsub_dat(ihsub)(1:1) .EQ. 'y') |
|
./pkg/fizhi/fizhi_mnc_init.F |
162 |
FIZHI_MNC_INIT |
& .OR. (hsub_dat(ihsub)(2:2) .EQ. 'y')) THEN |
|
./pkg/fizhi/fizhi_mnc_init.F |
42 |
FIZHI_MNC_INIT |
character*(5) horz_dat(CW_MAX_LOC), hsub_dat(CW_MAX_LOC), |
|
./pkg/fizhi/fizhi_mnc_init.F |
54 |
FIZHI_MNC_INIT |
data hsub_dat / |
|
./pkg/fizhi/fizhi_mnc_init.F |
92 |
FIZHI_MNC_INIT |
n = ILNBLNK(hsub_dat(ihsub)) |
|
./pkg/fizhi/fizhi_mnc_init.F |
93 |
FIZHI_MNC_INIT |
name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n) |
|
./pkg/land/land_mnc_init.F |
109 |
LAND_MNC_INIT |
n = ILNBLNK(hsub_dat(ihsub)) |
|
./pkg/land/land_mnc_init.F |
110 |
LAND_MNC_INIT |
name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n) |
|
./pkg/land/land_mnc_init.F |
133 |
LAND_MNC_INIT |
IF (hsub_dat(ihsub)(1:1) .EQ. 'x') THEN |
|
./pkg/land/land_mnc_init.F |
150 |
LAND_MNC_INIT |
IF ((hsub_dat(ihsub)(1:1) .EQ. 'y') |
|
./pkg/land/land_mnc_init.F |
151 |
LAND_MNC_INIT |
& .OR. (hsub_dat(ihsub)(2:2) .EQ. 'y')) THEN |
|
./pkg/land/land_mnc_init.F |
171 |
LAND_MNC_INIT |
IF (hsub_dat(ihsub)(1:1) .EQ. 'x') THEN |
|
./pkg/land/land_mnc_init.F |
178 |
LAND_MNC_INIT |
IF ((hsub_dat(ihsub)(1:1) .EQ. 'y') |
|
./pkg/land/land_mnc_init.F |
179 |
LAND_MNC_INIT |
& .OR. (hsub_dat(ihsub)(2:2) .EQ. 'y')) THEN |
|
./pkg/land/land_mnc_init.F |
61 |
LAND_MNC_INIT |
character*(5) horz_dat(CW_MAX_LOC), hsub_dat(CW_MAX_LOC), |
|
./pkg/land/land_mnc_init.F |
73 |
LAND_MNC_INIT |
data hsub_dat / |
|
./pkg/mnc/mnc_cw_init.F |
105 |
MNC_CW_INIT |
n = ILNBLNK(hsub_dat(ihsub)) |
|
./pkg/mnc/mnc_cw_init.F |
106 |
MNC_CW_INIT |
name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n) |
|
./pkg/mnc/mnc_cw_init.F |
129 |
MNC_CW_INIT |
IF (hsub_dat(ihsub)(1:1) .EQ. 'x') THEN |
|
./pkg/mnc/mnc_cw_init.F |
146 |
MNC_CW_INIT |
IF ((hsub_dat(ihsub)(1:1) .EQ. 'y') |
|
./pkg/mnc/mnc_cw_init.F |
147 |
MNC_CW_INIT |
& .OR. (hsub_dat(ihsub)(2:2) .EQ. 'y')) THEN |
|
./pkg/mnc/mnc_cw_init.F |
167 |
MNC_CW_INIT |
IF (hsub_dat(ihsub)(1:1) .EQ. 'x') THEN |
|
./pkg/mnc/mnc_cw_init.F |
174 |
MNC_CW_INIT |
IF ((hsub_dat(ihsub)(1:1) .EQ. 'y') |
|
./pkg/mnc/mnc_cw_init.F |
175 |
MNC_CW_INIT |
& .OR. (hsub_dat(ihsub)(2:2) .EQ. 'y')) THEN |
|
./pkg/mnc/mnc_cw_init.F |
57 |
MNC_CW_INIT |
character*(5) horz_dat(CW_MAX_LOC), hsub_dat(CW_MAX_LOC), |
|
./pkg/mnc/mnc_cw_init.F |
69 |
MNC_CW_INIT |
data hsub_dat / |