| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
109 |
INI_P_GROUND |
IF (Hfld(i,j,bi,bj).GE.hRef(k)) ks = k |
|
./model/src/ini_p_ground.F |
112 |
INI_P_GROUND |
& (Hfld(i,j,bi,bj)-hRef(ks))/(hRef(ks+1)-hRef(ks)) |
|
./model/src/ini_p_ground.F |
179 |
INI_P_GROUND |
phiLoc = Hfld(i,j,bi,bj) - hRef(1) |
|
./model/src/ini_p_ground.F |
282 |
INI_P_GROUND |
phiLoc = hRef(2*ks) |
|
./model/src/ini_p_ground.F |
283 |
INI_P_GROUND |
& + (hRef(2*ks-1)-hRef(2*ks)) |
|
./model/src/ini_p_ground.F |
286 |
INI_P_GROUND |
phiLoc = hRef(2*ks) |
|
./model/src/ini_p_ground.F |
287 |
INI_P_GROUND |
& + (hRef(2*ks+1)-hRef(2*ks)) |
|
./model/src/ini_p_ground.F |
307 |
INI_P_GROUND |
zLoc = hRef(1) |
|
./model/src/ini_p_ground.F |
64 |
INI_P_GROUND |
_RL hRef(2*Nr+1), rHalf(2*Nr+1) |
|
./model/src/ini_p_ground.F |
98 |
INI_P_GROUND |
hRef(k) = phiRef(k)*recip_gravity |