| File |
Line number |
Procedure |
Code |
|
./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 |
1166 |
INI_PARMS |
IF ( delZ(k) .NE. UNSET_RL ) zCoordInputData = .TRUE. |
|
./model/src/ini_parms.F |
1169 |
INI_PARMS |
IF ( delR(k) .EQ. UNSET_RL ) delR(k) = delZ(k) |
|
./model/src/ini_parms.F |
249 |
INI_PARMS |
& Ro_SeaLevel, delZ, delP, delR, delRc, delRFile, delRcFile, |
|
./model/src/ini_parms.F |
89 |
INI_PARMS |
_RL delZ(Nr) |
|
./model/src/ini_parms.F |
970 |
INI_PARMS |
delZ(k) = UNSET_RL |
|
./pkg/ecco/cost_obcsvol.F |
211 |
COST_OBCSVOL |
fctile = fctile - tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
253 |
COST_OBCSVOL |
fctile = fctile + tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
296 |
COST_OBCSVOL |
fctile = fctile + tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
339 |
COST_OBCSVOL |
fctile = fctile - tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |