| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_mnc_init.F |
101 |
FIZHI_MNC_INIT |
name((ntot+6):(n)) = vert_dat(ivert)(1:nvch) |
|
./pkg/fizhi/fizhi_mnc_init.F |
173 |
FIZHI_MNC_INIT |
IF (vert_dat(ivert)(1:5) .EQ. 'Phys ') THEN |
|
./pkg/fizhi/fizhi_mnc_init.F |
180 |
FIZHI_MNC_INIT |
IF (vert_dat(ivert)(1:5) .EQ. 'PhysI') 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 |
83 |
FIZHI_MNC_INIT |
DO ivert = 1,2 |
|
./pkg/fizhi/fizhi_mnc_init.F |
99 |
FIZHI_MNC_INIT |
nvch = ILNBLNK(vert_dat(ivert)) |
|
./pkg/land/land_mnc_init.F |
100 |
LAND_MNC_INIT |
DO ivert = 1,1 |
|
./pkg/land/land_mnc_init.F |
116 |
LAND_MNC_INIT |
nvch = ILNBLNK(vert_dat(ivert)) |
|
./pkg/land/land_mnc_init.F |
118 |
LAND_MNC_INIT |
name((ntot+6):(n)) = vert_dat(ivert)(1:nvch) |
|
./pkg/land/land_mnc_init.F |
190 |
LAND_MNC_INIT |
IF (vert_dat(ivert)(1:5) .EQ. 'Zland') THEN |
|
./pkg/land/land_mnc_init.F |
57 |
LAND_MNC_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/mnc/mnc_cw_init.F |
112 |
MNC_CW_INIT |
nvch = ILNBLNK(vert_dat(ivert)) |
|
./pkg/mnc/mnc_cw_init.F |
114 |
MNC_CW_INIT |
name((ntot+6):(n)) = vert_dat(ivert)(1:nvch) |
|
./pkg/mnc/mnc_cw_init.F |
186 |
MNC_CW_INIT |
IF (vert_dat(ivert)(1:1) .EQ. 'C') THEN |
|
./pkg/mnc/mnc_cw_init.F |
193 |
MNC_CW_INIT |
IF (vert_dat(ivert)(1:1) .EQ. 'I') THEN |
|
./pkg/mnc/mnc_cw_init.F |
200 |
MNC_CW_INIT |
IF (vert_dat(ivert)(1:1) .EQ. 'L') THEN |
|
./pkg/mnc/mnc_cw_init.F |
207 |
MNC_CW_INIT |
IF (vert_dat(ivert)(1:1) .EQ. 'U') THEN |
|
./pkg/mnc/mnc_cw_init.F |
214 |
MNC_CW_INIT |
IF (vert_dat(ivert)(1:1) .EQ. 'M') 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 |
96 |
MNC_CW_INIT |
DO ivert = 1,6 |