File |
Line number |
Procedure |
Code |
./model/src/ini_p_ground.F |
133 |
INI_P_GROUND |
pLevHvR(1)= rF(1)/atm_Po |
./model/src/ini_p_ground.F |
134 |
INI_P_GROUND |
PiHvR(1) = atm_Cp*(pLevHvR(1)**atm_kappa) |
./model/src/ini_p_ground.F |
136 |
INI_P_GROUND |
pLevHvR(k+1)= pLevHvR(1) - k*dpHvR |
./model/src/ini_p_ground.F |
137 |
INI_P_GROUND |
PiHvR(k+1) = atm_Cp*(pLevHvR(k+1)**atm_kappa) |
./model/src/ini_p_ground.F |
138 |
INI_P_GROUND |
pMidHvR(k)= (pLevHvR(k)+pLevHvR(k+1))*0.5 _d 0 |
./model/src/ini_p_ground.F |
212 |
INI_P_GROUND |
& ' Zloc(lowest P=', pLevHvR(1+nLevHvR),' )=',zLoc |
./model/src/ini_p_ground.F |
330 |
INI_P_GROUND |
kLev = 1 + INT( (pLevHvR(1)-psNorm)/dpHvR ) |
./model/src/ini_p_ground.F |
69 |
INI_P_GROUND |
_RL plowHvR, dpHvR, pLevHvR(nLevHvR+1), pMidHvR(nLevHvR) |