| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_exch2.F |
104 |
FLT_EXCH2 |
& .AND. ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exch2.F |
107 |
FLT_EXCH2 |
ELSEIF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exch2.F |
49 |
FLT_EXCH2 |
_RL ilo, ihi, jlo, jhi, iNew, jNew |
|
./pkg/flt/flt_exch2.F |
92 |
FLT_EXCH2 |
ihi = 0.5 _d 0 + DFLOAT(sNx) |
|
./pkg/flt/flt_exchg.F |
101 |
FLT_EXCHG |
& .AND. ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exchg.F |
104 |
FLT_EXCHG |
ELSEIF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exchg.F |
106 |
FLT_EXCHG |
IF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exchg.F |
50 |
FLT_EXCHG |
_RL ilo, ihi, jlo, jhi, iNew, jNew |
|
./pkg/flt/flt_exchg.F |
90 |
FLT_EXCHG |
ihi = 0.5 _d 0 + DFLOAT(sNx) |
|
./pkg/seaice/seaice_cost_weights.F |
49 |
SEAICE_COST_WEIGHTS |
integer ilo,ihi |
|
./pkg/ecco/cost_geoid.F |
63 |
COST_GEOID |
integer ilo,ihi |
|
./pkg/ecco/cost_readgeoid.F |
62 |
COST_READGEOID |
integer ilo,ihi |
|
./pkg/ecco/cost_readgeoid.F |
89 |
COST_READGEOID |
ihi = ilnblnk(geoid_covariancefile) |
|
./pkg/ecco/cost_readgeoid.F |
93 |
COST_READGEOID |
& geoid_covariancefile(ilo:ihi) |
|
./pkg/ecco/cost_readgeoid.F |
97 |
COST_READGEOID |
open(egmunit, file = geoid_covariancefile(ilo:ihi), |
|
./pkg/ecco/ecco_cost_init_fixed.F |
204 |
ECCO_COST_INIT_FIXED |
ihi = ilnblnk(costTranspDataFile) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
206 |
ECCO_COST_INIT_FIXED |
I costTranspDataFile(ilo:ihi), |
|
./pkg/ecco/ecco_cost_init_fixed.F |
242 |
ECCO_COST_INIT_FIXED |
ihi = ilnblnk(tpTimeMaskFile) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
244 |
ECCO_COST_INIT_FIXED |
I tpTimeMaskFile(ilo:ihi), |
|
./pkg/ecco/ecco_cost_init_fixed.F |
257 |
ECCO_COST_INIT_FIXED |
ihi = ilnblnk(ersTimeMaskFile) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
259 |
ECCO_COST_INIT_FIXED |
I ersTimeMaskFile(ilo:ihi), |
|
./pkg/ecco/ecco_cost_init_fixed.F |
272 |
ECCO_COST_INIT_FIXED |
ihi = ilnblnk(gfoTimeMaskFile) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
274 |
ECCO_COST_INIT_FIXED |
I gfoTimeMaskFile(ilo:ihi), |
|
./pkg/ecco/ecco_cost_init_fixed.F |
55 |
ECCO_COST_INIT_FIXED |
integer ilo,ihi |
|
./pkg/ecco/ecco_cost_weights.F |
268 |
ECCO_COST_WEIGHTS |
ihi = ilnblnk(data_errfile) |
|
./pkg/ecco/ecco_cost_weights.F |
273 |
ECCO_COST_WEIGHTS |
I data_errfile(ilo:ihi), |
|
./pkg/ecco/ecco_cost_weights.F |
57 |
ECCO_COST_WEIGHTS |
integer ilo,ihi |