| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_mnc_init.F |
100 |
FIZHI_MNC_INIT |
n = ntot+6+nvch-1 |
|
./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 |
38 |
FIZHI_MNC_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/fizhi/fizhi_mnc_init.F |
90 |
FIZHI_MNC_INIT |
ntot = n + 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
91 |
FIZHI_MNC_INIT |
name(ntot:ntot) = '_' |
|
./pkg/fizhi/fizhi_mnc_init.F |
93 |
FIZHI_MNC_INIT |
name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n) |
|
./pkg/fizhi/fizhi_mnc_init.F |
94 |
FIZHI_MNC_INIT |
ntot = ntot + n |
|
./pkg/fizhi/fizhi_mnc_init.F |
97 |
FIZHI_MNC_INIT |
write(name((ntot+1):(ntot+5)), '(a1,2a2)') |
|
./pkg/land/land_mnc_init.F |
107 |
LAND_MNC_INIT |
ntot = n + 1 |
|
./pkg/land/land_mnc_init.F |
108 |
LAND_MNC_INIT |
name(ntot:ntot) = '_' |
|
./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 |
111 |
LAND_MNC_INIT |
ntot = ntot + n |
|
./pkg/land/land_mnc_init.F |
114 |
LAND_MNC_INIT |
write(name((ntot+1):(ntot+5)), '(a1,2a2)') |
|
./pkg/land/land_mnc_init.F |
117 |
LAND_MNC_INIT |
n = ntot+6+nvch-1 |
|
./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 |
57 |
LAND_MNC_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/mnc/mnc_cw_init.F |
103 |
MNC_CW_INIT |
ntot = n + 1 |
|
./pkg/mnc/mnc_cw_init.F |
104 |
MNC_CW_INIT |
name(ntot:ntot) = '_' |
|
./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 |
107 |
MNC_CW_INIT |
ntot = ntot + n |
|
./pkg/mnc/mnc_cw_init.F |
110 |
MNC_CW_INIT |
write(name((ntot+1):(ntot+5)), '(a1,2a2)') |
|
./pkg/mnc/mnc_cw_init.F |
113 |
MNC_CW_INIT |
n = ntot+6+nvch-1 |
|
./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 |
53 |
MNC_CW_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/mnc/mnc_cwrapper.F |
155 |
MNC_CW_DUMP |
integer i,j, ntot |
|
./pkg/mnc/mnc_cwrapper.F |
171 |
MNC_CW_DUMP |
ntot = 0 |
|
./pkg/mnc/mnc_cwrapper.F |
176 |
MNC_CW_DUMP |
ntot = ntot + 1 |
|
./pkg/mnc/mnc_cwrapper.F |
180 |
MNC_CW_DUMP |
& j, ntot, ' : ', mnc_cw_gname(j)(1:20), mnc_cw_ndim(j), |
|
./pkg/mnc/mnc_cwrapper.F |
196 |
MNC_CW_DUMP |
ntot = 0 |
|
./pkg/mnc/mnc_cwrapper.F |
201 |
MNC_CW_DUMP |
ntot = ntot + 1 |
|
./pkg/mnc/mnc_cwrapper.F |
204 |
MNC_CW_DUMP |
& j, ntot, ' | ', |
|
./pkg/mnc/mnc_cwrapper.F |
239 |
MNC_CW_DUMP |
IF (ntot .EQ. 0) THEN |
|
./pkg/mnc/mnc_readparms.F |
229 |
MNC_SET_OUTDIR |
integer i,j,k, ntot, npathd, idate |
|
./pkg/mnc/mnc_readparms.F |
254 |
MNC_SET_OUTDIR |
ntot = 0 |
|
./pkg/mnc/mnc_readparms.F |
258 |
MNC_SET_OUTDIR |
ntot = ntot + 1 |
|
./pkg/mnc/mnc_readparms.F |
259 |
MNC_SET_OUTDIR |
ienc(ntot) = j |
|
./pkg/mnc/mnc_readparms.F |
266 |
MNC_SET_OUTDIR |
CALL MNCCDIR(ntot, ienc, idate) |
|
./pkg/mnc/mnc_readparms.F |
271 |
MNC_SET_OUTDIR |
IF (ntot .GT. 0) THEN |
|
./pkg/mnc/mnc_readparms.F |
272 |
MNC_SET_OUTDIR |
IF (ntot .GT. (MNC_MAX_PATH-40)) THEN |
|
./pkg/mnc/mnc_readparms.F |
273 |
MNC_SET_OUTDIR |
ntot = MNC_MAX_PATH - 40 |
|
./pkg/mnc/mnc_readparms.F |
275 |
MNC_SET_OUTDIR |
DO i = 1,ntot |
|
./pkg/mnc/mnc_readparms.F |
279 |
MNC_SET_OUTDIR |
mnc_out_path((ntot+1):(ntot+1)) = '/' |