| 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 |
38 |
FIZHI_MNC_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/fizhi/fizhi_mnc_init.F |
72 |
FIZHI_MNC_INIT |
ihsub = is |
|
./pkg/fizhi/fizhi_mnc_init.F |
76 |
FIZHI_MNC_INIT |
ihsub = 4 |
|
./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 |
57 |
LAND_MNC_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/land/land_mnc_init.F |
89 |
LAND_MNC_INIT |
ihsub = is |
|
./pkg/land/land_mnc_init.F |
93 |
LAND_MNC_INIT |
ihsub = 4 |
|
./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 |
53 |
MNC_CW_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/mnc/mnc_cw_init.F |
85 |
MNC_CW_INIT |
ihsub = is |
|
./pkg/mnc/mnc_cw_init.F |
89 |
MNC_CW_INIT |
ihsub = 4 |