File |
Line number |
Procedure |
Code |
./model/src/ini_p_ground.F |
184 |
INI_P_GROUND |
pLevHvR(1)= Ro_SeaLevel/atm_Po |
./model/src/ini_p_ground.F |
185 |
INI_P_GROUND |
PiHvR(1) = atm_Cp*(pLevHvR(1)**atm_kappa) |
./model/src/ini_p_ground.F |
187 |
INI_P_GROUND |
pLevHvR(k+1)= pLevHvR(1) - float(k)*dpHvR |
./model/src/ini_p_ground.F |
188 |
INI_P_GROUND |
PiHvR(k+1) = atm_Cp*(pLevHvR(k+1)**atm_kappa) |
./model/src/ini_p_ground.F |
189 |
INI_P_GROUND |
pMidHvR(k)= (pLevHvR(k)+pLevHvR(k+1))*0.5 _d 0 |
./model/src/ini_p_ground.F |
262 |
INI_P_GROUND |
& ' Zloc(lowest P=', pLevHvR(1+nLevHvR),' )=',zLoc |
./model/src/ini_p_ground.F |
374 |
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) |