File |
Line number |
Procedure |
Code |
./pkg/aim_v23/aim_aim2land.F |
139 |
AIM_AIM2LAND |
& + EnPrec(I2,myThid)*( PRECNV(I2,myThid) |
./pkg/aim_v23/aim_aim2sioce.F |
165 |
AIM_AIM2SIOCE |
IF ( EnPrec(I2,myThid).GE.0. _d 0 ) THEN |
./pkg/aim_v23/aim_aim2sioce.F |
168 |
AIM_AIM2SIOCE |
& + EnPrec(I2,myThid)*prcAtm(i,j) |
./pkg/aim_v23/aim_aim2sioce.F |
223 |
AIM_AIM2SIOCE |
& + EnPrec(I2,myThid)*prcAtm(i,j) |
./pkg/aim_v23/aim_diagnostics.F |
208 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 1, EnPrec, |
./pkg/aim_v23/aim_diagnostics.F |
280 |
AIM_DIAGNOSTICS |
& 'aim_EnPrec',EnPrec(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
353 |
AIM_DIAGNOSTICS |
& + EnPrec(I2,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
438 |
AIM_DIAGNOSTICS |
tmpVar(J) = EnPrec(J,myThid) |
./pkg/aim_v23/com_physvar.h |
102 |
NO PROCEDURE |
_RL EnPrec (NGP,MAX_NO_THREADS) |
./pkg/aim_v23/com_physvar.h |
97 |
NO PROCEDURE |
COMMON /FLUXES/ PRECNV, PRECLS, EnPrec, |
./pkg/aim_v23/phy_driver.F |
207 |
PHY_DRIVER |
O EnPrec(1,myThid), |
./pkg/aim_v23/phy_driver.F |
211 |
PHY_DRIVER |
EnPrec(J,myThid) = 0. _d 0 |
./pkg/aim_v23/phy_snow_precip.F |
109 |
SNOW_PRECIP |
& - EnPrec(J)*PRECNV(J)*GRDSCP(Ktop) |
./pkg/aim_v23/phy_snow_precip.F |
13 |
SNOW_PRECIP |
O EnPrec, |
./pkg/aim_v23/phy_snow_precip.F |
62 |
SNOW_PRECIP |
_RL EnPrec(NGP) |
./pkg/aim_v23/phy_snow_precip.F |
86 |
SNOW_PRECIP |
EnPrec(J) = rainCP*(T1(J)-tFreeze) |
./pkg/aim_v23/phy_snow_precip.F |
88 |
SNOW_PRECIP |
EnPrec(J) = -ALHF |
./pkg/aim_v23/phy_snow_precip.F |
91 |
SNOW_PRECIP |
EnPrec(J) = 0. |
./pkg/aim_v23/phy_snow_precip.F |
99 |
SNOW_PRECIP |
DTLSC(J,K) = DTLSC(J,K) + EnPrec(J)*DQLSC(J,K)/CP |