| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_mnc_init.F |
118 |
FIZHI_MNC_INIT |
IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cen') |
|
./pkg/fizhi/fizhi_mnc_init.F |
119 |
FIZHI_MNC_INIT |
& .OR. (horz_dat(ihorz)(1:1) .EQ. 'V') ) THEN |
|
./pkg/fizhi/fizhi_mnc_init.F |
125 |
FIZHI_MNC_INIT |
IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cor') |
|
./pkg/fizhi/fizhi_mnc_init.F |
126 |
FIZHI_MNC_INIT |
& .OR. (horz_dat(ihorz)(1:1) .EQ. 'U') ) THEN |
|
./pkg/fizhi/fizhi_mnc_init.F |
136 |
FIZHI_MNC_INIT |
IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cen') |
|
./pkg/fizhi/fizhi_mnc_init.F |
137 |
FIZHI_MNC_INIT |
& .OR. (horz_dat(ihorz)(1:1) .EQ. 'U') ) THEN |
|
./pkg/fizhi/fizhi_mnc_init.F |
143 |
FIZHI_MNC_INIT |
IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cor') |
|
./pkg/fizhi/fizhi_mnc_init.F |
144 |
FIZHI_MNC_INIT |
& .OR. (horz_dat(ihorz)(1:1) .EQ. 'V') ) 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 |
67 |
FIZHI_MNC_INIT |
DO ihorz = 1,5 |
|
./pkg/fizhi/fizhi_mnc_init.F |
74 |
FIZHI_MNC_INIT |
IF (ihorz .EQ. 1) THEN |
|
./pkg/fizhi/fizhi_mnc_init.F |
88 |
FIZHI_MNC_INIT |
n = ILNBLNK(horz_dat(ihorz)) |
|
./pkg/fizhi/fizhi_mnc_init.F |
89 |
FIZHI_MNC_INIT |
name(1:n) = horz_dat(ihorz)(1:n) |
|
./pkg/land/land_mnc_init.F |
105 |
LAND_MNC_INIT |
n = ILNBLNK(horz_dat(ihorz)) |
|
./pkg/land/land_mnc_init.F |
106 |
LAND_MNC_INIT |
name(1:n) = horz_dat(ihorz)(1:n) |
|
./pkg/land/land_mnc_init.F |
135 |
LAND_MNC_INIT |
IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cen') |
|
./pkg/land/land_mnc_init.F |
136 |
LAND_MNC_INIT |
& .OR. (horz_dat(ihorz)(1:1) .EQ. 'V') ) THEN |
|
./pkg/land/land_mnc_init.F |
142 |
LAND_MNC_INIT |
IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cor') |
|
./pkg/land/land_mnc_init.F |
143 |
LAND_MNC_INIT |
& .OR. (horz_dat(ihorz)(1:1) .EQ. 'U') ) THEN |
|
./pkg/land/land_mnc_init.F |
153 |
LAND_MNC_INIT |
IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cen') |
|
./pkg/land/land_mnc_init.F |
154 |
LAND_MNC_INIT |
& .OR. (horz_dat(ihorz)(1:1) .EQ. 'U') ) THEN |
|
./pkg/land/land_mnc_init.F |
160 |
LAND_MNC_INIT |
IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cor') |
|
./pkg/land/land_mnc_init.F |
161 |
LAND_MNC_INIT |
& .OR. (horz_dat(ihorz)(1:1) .EQ. 'V') ) 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 |
84 |
LAND_MNC_INIT |
DO ihorz = 1,5 |
|
./pkg/land/land_mnc_init.F |
91 |
LAND_MNC_INIT |
IF (ihorz .EQ. 1) THEN |
|
./pkg/mnc/mnc_cw_init.F |
101 |
MNC_CW_INIT |
n = ILNBLNK(horz_dat(ihorz)) |
|
./pkg/mnc/mnc_cw_init.F |
102 |
MNC_CW_INIT |
name(1:n) = horz_dat(ihorz)(1:n) |
|
./pkg/mnc/mnc_cw_init.F |
131 |
MNC_CW_INIT |
IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cen') |
|
./pkg/mnc/mnc_cw_init.F |
132 |
MNC_CW_INIT |
& .OR. (horz_dat(ihorz)(1:1) .EQ. 'V') ) THEN |
|
./pkg/mnc/mnc_cw_init.F |
138 |
MNC_CW_INIT |
IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cor') |
|
./pkg/mnc/mnc_cw_init.F |
139 |
MNC_CW_INIT |
& .OR. (horz_dat(ihorz)(1:1) .EQ. 'U') ) THEN |
|
./pkg/mnc/mnc_cw_init.F |
149 |
MNC_CW_INIT |
IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cen') |
|
./pkg/mnc/mnc_cw_init.F |
150 |
MNC_CW_INIT |
& .OR. (horz_dat(ihorz)(1:1) .EQ. 'U') ) THEN |
|
./pkg/mnc/mnc_cw_init.F |
156 |
MNC_CW_INIT |
IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cor') |
|
./pkg/mnc/mnc_cw_init.F |
157 |
MNC_CW_INIT |
& .OR. (horz_dat(ihorz)(1:1) .EQ. 'V') ) 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 |
80 |
MNC_CW_INIT |
DO ihorz = 1,5 |
|
./pkg/mnc/mnc_cw_init.F |
87 |
MNC_CW_INIT |
IF (ihorz .EQ. 1) THEN |