| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
107 |
INI_P_GROUND |
phiRef(K+1) = phiRef(K)+ddPI*tRef(Ks) |
|
./model/src/ini_p_ground.F |
116 |
INI_P_GROUND |
phiRef(2*K) = phiRef(1) + ddPI*tRef(K) |
|
./model/src/ini_p_ground.F |
120 |
INI_P_GROUND |
phiRef(2*K+1) = phiRef(2*K) + ddPI*0.5*tRef(K) |
|
./model/src/ini_p_ground.F |
121 |
INI_P_GROUND |
phiRef(2*K+2) = phiRef(2*K) |
|
./model/src/ini_p_ground.F |
127 |
INI_P_GROUND |
phiRef(2*K+1) = phiRef(2*K) + ddPI*tRef(K) |
|
./model/src/ini_p_ground.F |
135 |
INI_P_GROUND |
phiRef(K) = phiRef(K)*recip_gravity |
|
./model/src/ini_p_ground.F |
145 |
INI_P_GROUND |
& ' K=',K*0.5,' ; r=',rHalf(K),' ; phiRef/g=', phiRef(K) |
|
./model/src/ini_p_ground.F |
160 |
INI_P_GROUND |
IF (Hfld(i,j,bi,bj).GE.phiRef(K)) Ks = K |
|
./model/src/ini_p_ground.F |
163 |
INI_P_GROUND |
& (Hfld(i,j,bi,bj)-phiRef(Ks))/(phiRef(Ks+1)-phiRef(Ks)) |
|
./model/src/ini_p_ground.F |
326 |
INI_P_GROUND |
phiLoc = phiRef(2*ks) |
|
./model/src/ini_p_ground.F |
327 |
INI_P_GROUND |
& + (phiRef(2*ks-1)-phiRef(2*ks)) |
|
./model/src/ini_p_ground.F |
330 |
INI_P_GROUND |
phiLoc = phiRef(2*ks) |
|
./model/src/ini_p_ground.F |
331 |
INI_P_GROUND |
& + (phiRef(2*ks+1)-phiRef(2*ks)) |
|
./model/src/ini_p_ground.F |
64 |
INI_P_GROUND |
_RL phiRef(2*Nr+1), rHalf(2*Nr+1) |
|
./model/src/ini_p_ground.F |
99 |
INI_P_GROUND |
phiRef(1) = 0. |