| File |
Line number |
Procedure |
Code |
|
./pkg/aim/com_physcon.h |
13 |
NO PROCEDURE |
COMMON /PHYCON/ P0, GG, RD, CP, ALHC, SBC |
|
./pkg/aim/com_physcon.h |
14 |
NO PROCEDURE |
_RL P0, GG, RD, CP, ALHC, SBC |
|
./pkg/aim/phy_vdifsc.F |
149 |
VDIFSC |
stab(J)=dThdp+ALHC*(QSAT(J,NL1(J))-QSAT(J,NLEVxy(J,myThid))) |
|
./pkg/aim/phy_lscond.F |
58 |
LSCOND |
TFACT = ALHC/CP |
|
./pkg/aim/phy_convmf.F |
160 |
CONVMF |
& dThdpHat(J,K)+ALHC*(QSAT(J,K)-QSAT(J,NLEVxy(J,myThid))) |
|
./pkg/aim/phy_convmf.F |
161 |
CONVMF |
& -WVI(K,2)*(dThdp(J,K) +ALHC*(QSAT(J,K) -QSAT(J,K+1)) ) |
|
./pkg/aim/phy_convmf.F |
263 |
CONVMF |
DFSE(J,K)=-FDMUS+ALHC*PRECNV(J) |
|
./pkg/aim/phy_inphys.F |
64 |
INPHYS |
ALHC = 2501. _d 0 |
|
./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/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_suflux_sice.F |
103 |
SUFLUX_SICE |
ALHevp = ALHC |
|
./pkg/aim_v23/phy_suflux_sice.F |
105 |
SUFLUX_SICE |
IF ( aim_energPrecip ) ALHevp = ALHC + ALHF |
|
./pkg/aim_v23/phy_vdifsc.F |
138 |
VDIFSC |
DMSE = dSEdp(J,NL1) + ALHC*(QA(J,Ktmp)-QSAT(J,NL1)) |
|
./pkg/aim_v23/phy_lscond.F |
66 |
LSCOND |
TFACT = ALHC/CP |
|
./pkg/aim_v23/aim_aim2land.F |
93 |
AIM_AIM2LAND |
& - EVAP(I2,1,myThid)*ALHC |
|
./pkg/aim_v23/aim_aim2sioce.F |
103 |
AIM_AIM2SIOCE |
& - EVAP(I2,2,myThid)*ALHC |
|
./pkg/aim_v23/aim_aim2sioce.F |
172 |
AIM_AIM2SIOCE |
& - EVAP(I2,3,myThid)*ALHC |
|
./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 |