File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_obcsvol.F |
209 |
COST_OBCSVOL |
fctile = fctile - tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |
./pkg/ecco/cost_obcsvol.F |
251 |
COST_OBCSVOL |
fctile = fctile + tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |
./pkg/ecco/cost_obcsvol.F |
294 |
COST_OBCSVOL |
fctile = fctile + tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
./pkg/ecco/cost_obcsvol.F |
337 |
COST_OBCSVOL |
fctile = fctile - tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
./verification/flt_example/extra/cvprofiles.F |
216 |
NO PROCEDURE |
if (delZ(k) .ne. delZ(k-1)) then |
./verification/flt_example/extra/cvprofiles.F |
226 |
NO PROCEDURE |
Dep_w(k)=Dep_w(k-1)+delZ(k-1) |
./verification/flt_example/extra/cvprofiles.F |
72 |
NO PROCEDURE |
real delZ(maxdepth) |
./verification/flt_example/extra/cvprofiles.F |
86 |
NO PROCEDURE |
namelist //coord Nr, delZ |
./model/src/ini_parms.F |
104 |
INI_PARMS |
_RL delZ(Nr) |
./model/src/ini_parms.F |
1090 |
INI_PARMS |
IF ( delZ(K) .NE. UNSET_RL ) zCoordInputData = .TRUE. |
./model/src/ini_parms.F |
1093 |
INI_PARMS |
IF ( delR(K) .EQ. UNSET_RL ) delR(K) = delZ(K) |
./model/src/ini_parms.F |
209 |
INI_PARMS |
& usingCartesianGrid, dxSpacing, dySpacing, delX, delY, delZ, |
./model/src/ini_parms.F |
885 |
INI_PARMS |
delZ(K) = UNSET_RL |