| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
111 |
INI_P_GROUND |
Po_surf = rHalf(ks) + (rHalf(ks+1)-rHalf(ks))* |
|
./model/src/ini_p_ground.F |
284 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks-1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
288 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks+1)-rHalf(2*ks)) |
|
./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 |
89 |
INI_P_GROUND |
rHalf(2*k-1) = rF(k) |
|
./model/src/ini_p_ground.F |
90 |
INI_P_GROUND |
rHalf(2*k) = rC(k) |
|
./model/src/ini_p_ground.F |
92 |
INI_P_GROUND |
rHalf(2*Nr+1) = rF(Nr+1) |
|
./model/src/set_ref_state.F |
303 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rHalf( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
304 |
SET_REF_STATE |
& -((rHalf(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
388 |
SET_REF_STATE |
& ' K=',k*0.5,' ; r=',rHalf(k),' ; phiRef/g=', |
|
./model/src/set_ref_state.F |
42 |
SET_REF_STATE |
_RL rHalf(2*Nr+1), pRefLocF(Nr+1) |
|
./model/src/set_ref_state.F |
63 |
SET_REF_STATE |
rHalf(2*k-1) = rF(k) |
|
./model/src/set_ref_state.F |
64 |
SET_REF_STATE |
rHalf(2*k) = rC(k) |
|
./model/src/set_ref_state.F |
66 |
SET_REF_STATE |
rHalf(2*Nr+1) = rF(Nr+1) |