| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
245 |
INI_P_GROUND |
psNorm = (PiLoc/atm_Cp)**recip_kappa |
|
./model/src/ini_p_ground.F |
266 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = psNorm*atm_Po |
|
./model/src/ini_p_ground.F |
373 |
INI_P_GROUND |
psNorm = Po_surf/atm_Po |
|
./model/src/ini_p_ground.F |
374 |
INI_P_GROUND |
kLev = 1 + INT( (pLevHvR(1)-psNorm)/dpHvR ) |
|
./model/src/ini_p_ground.F |
383 |
INI_P_GROUND |
dzLoc = ( PiHvR(kLev)-atm_Cp*(psNorm**atm_kappa) ) |
|
./model/src/ini_p_ground.F |
72 |
INI_P_GROUND |
_RL psNorm, rMidKp1 |