| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_aim2land.F |
93 |
AIM_AIM2LAND |
& - EVAP(I2,1,myThid)*ALHC |
|
./pkg/aim_v23/aim_aim2sioce.F |
122 |
AIM_AIM2SIOCE |
& - EVAP(I2,2,myThid)*ALHC |
|
./pkg/aim_v23/aim_aim2sioce.F |
199 |
AIM_AIM2SIOCE |
& - EVAP(I2,3,myThid)*ALHC |
|
./pkg/aim_v23/com_physcon.h |
16 |
NO PROCEDURE |
COMMON /PHYCON/ P0, GG, RD, CP, ALHC, ALHF, SBC, rainCP, tFreeze |
|
./pkg/aim_v23/com_physcon.h |
17 |
NO PROCEDURE |
_RL P0, GG, RD, CP, ALHC, ALHF, SBC, rainCP, tFreeze |
|
./pkg/aim_v23/phy_convmf.F |
178 |
CONVMF |
stab_crit = dSEdpTot + ALHC*(QSAT(J,Ktmp)-QSAT(J,K)) |
|
./pkg/aim_v23/phy_convmf.F |
179 |
CONVMF |
& -WVI(K,2)*(dSEdp(J,K) + ALHC*(QSAT(J,K+1)-QSAT(J,K)) ) |
|
./pkg/aim_v23/phy_convmf.F |
289 |
CONVMF |
DFSE(J,K)= -FDMUS+ALHC*PRECNV(J) |
|
./pkg/aim_v23/phy_inphys.F |
69 |
INPHYS |
ALHC = 2501. _d 0 |
|
./pkg/aim_v23/phy_lscond.F |
66 |
LSCOND |
TFACT = ALHC/CP |
|
./pkg/aim_v23/phy_suflux_land.F |
195 |
SUFLUX_LAND |
dEvp(J) = MAX( dEvp(J), -dShf(J)/ALHC ) |
|
./pkg/aim_v23/phy_suflux_land.F |
218 |
SUFLUX_LAND |
& - ( Shf0(J) + ALHC*Evp0(J) ) |
|
./pkg/aim_v23/phy_suflux_land.F |
220 |
SUFLUX_LAND |
& - ( SHF(J)+ ALHC*EVAP(J) ) |
|
./pkg/aim_v23/phy_suflux_land.F |
222 |
SUFLUX_LAND |
& - ( dShf(J) + ALHC*dEvp(J) ) |
|
./pkg/aim_v23/phy_suflux_sice.F |
104 |
SUFLUX_SICE |
ALHevp = ALHC |
|
./pkg/aim_v23/phy_suflux_sice.F |
106 |
SUFLUX_SICE |
IF ( aim_energPrecip .OR. useThSIce ) ALHevp = ALHC + ALHF |
|
./pkg/aim_v23/phy_vdifsc.F |
138 |
VDIFSC |
DMSE = dSEdp(J,NL1) + ALHC*(QA(J,Ktmp)-QSAT(J,NL1)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
100 |
BULKF_FORMULA_AIM |
_RL P0, ALHC, ALHF, RD, CP, SBC, EMISloc |
|
./pkg/bulk_force/bulkf_formula_aim.F |
102 |
BULKF_FORMULA_AIM |
EQUIVALENCE ( Lvap , ALHC ) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
129 |
BULKF_FORMULA_AIM |
ALHevp = ALHC |
|
./pkg/bulk_force/bulkf_formula_aim.F |
132 |
BULKF_FORMULA_AIM |
IF ( iceornot.GE.1 ) ALHevp = ALHC + ALHF |