| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1297 |
RAS |
*, CP, ALHL, RKAPPA, GRAV, P00, CRTMSF |
|
./pkg/fizhi/fizhi_moist.F |
1501 |
CLOUD |
*, CP, ALHL, RKAP, GRAV, P00, CRTMSF |
|
./pkg/fizhi/fizhi_moist.F |
1674 |
CLOUD |
ONEBCP = 1.0 / CP |
|
./pkg/fizhi/fizhi_moist.F |
1677 |
CLOUD |
CPBG = CP * ONEBG |
|
./pkg/fizhi/fizhi_moist.F |
1705 |
CLOUD |
PRI(I,L) = (CP/CMB2PA) / (PRS(I,L+1) - PRS(I,L)) |
|
./pkg/fizhi/fizhi_moist.F |
1732 |
CLOUD |
HOL(I,K) = TX1(I)*CP + QOL(I,K)*ALHL |
|
./pkg/fizhi/fizhi_moist.F |
1734 |
CLOUD |
TX2(I) = (PRJ(I,K+1) - PRJ(I,K)) * POI(I,K) * CP |
|
./pkg/fizhi/fizhi_moist.F |
1743 |
CLOUD |
TEM1 = TX2(I) + PRJ(I,L+1) * POI(I,L) * CP |
|
./pkg/fizhi/fizhi_moist.F |
1749 |
CLOUD |
TX2(I) = TX2(I) + TX1(I)*CP |
|
./pkg/fizhi/fizhi_moist.F |
1761 |
CLOUD |
TEM1 = TX2(I) + PRJ(I,IC1) * POI(I,IC) * CP |
|
./pkg/fizhi/fizhi_moist.F |
188 |
MOISTIO |
CP = GETCON('CP') |
|
./pkg/fizhi/fizhi_moist.F |
2039 |
CLOUD |
TX1(I) = TX1(I) + (TX5(I)-TX3(I)+QOL(II,IC)*ALHL)*(PRI(II,IC)/CP) |
|
./pkg/fizhi/fizhi_turb.F |
1455 |
TRBFLX |
GBYCP = GRAV / CP |
|
./pkg/fizhi/fizhi_turb.F |
1461 |
TRBFLX |
CLH = GETCON('LATENT HEAT COND') / CP |
|
./pkg/fizhi/fizhi_turb.F |
1554 |
TRBFLX |
ADZ1(I,L) = (CP/GRAV)*(PLKE(I,L+1)-PLKE(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
1654 |
TRBFLX |
FLXFPK(I,NLEVP1) = CP * FLXFPK(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1896 |
TRBFLX |
STRT(I,L) = CP * DTHV(I,L) * DPK(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1953 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
1974 |
TRBFLX |
1 NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
2429 |
SFCFLX |
VRIB(I) = ( CP * (VPKE(I)-VPK(I)) ) * |
|
./pkg/fizhi/fizhi_turb.F |
3339 |
TRBLEN |
1 QXLM,NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2, |
|
./pkg/fizhi/fizhi_turb.F |
3461 |
TRBLEN |
& WRKIT1,WRKIT2,WRKIT3,WRKIT4,CP,irun ) |
|
./pkg/fizhi/fizhi_turb.F |
3620 |
TRBITP |
& AAA,BBB,CCC,DDD,CP,irun ) |
|
./pkg/fizhi/fizhi_turb.F |
3678 |
TRBITP |
DDD(I,L) = ( CP *(DTHV(I,L+1)*DPK(I,L) |
|
./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 |
122 |
CONVMF |
factP = CP*SIGH(K)**(RD/CP) |
|
./pkg/aim_v23/phy_inphys.F |
67 |
INPHYS |
CP = atm_Cp |
|
./pkg/aim_v23/phy_inphys.F |
88 |
INPHYS |
GRDSCP(K) = GRDSIG(K)/CP |
|
./pkg/aim_v23/phy_lscond.F |
66 |
LSCOND |
TFACT = ALHC/CP |
|
./pkg/aim_v23/phy_snow_precip.F |
78 |
SNOW_PRECIP |
kappa = RD/CP |
|
./pkg/aim_v23/phy_snow_precip.F |
99 |
SNOW_PRECIP |
DTLSC(J,K) = DTLSC(J,K) + EnPrec(J)*DQLSC(J,K)/CP |
|
./pkg/aim_v23/phy_suflux_land.F |
187 |
SUFLUX_LAND |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
188 |
SUFLUX_LAND |
Shf0(J) = Shf0(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
189 |
SUFLUX_LAND |
dShf(J) = CDENVV(J)*CP |
|
./pkg/aim_v23/phy_suflux_land.F |
190 |
SUFLUX_LAND |
& + dShf(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
199 |
SUFLUX_LAND |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
200 |
SUFLUX_LAND |
Shf0(J) = CDENVV(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
201 |
SUFLUX_LAND |
dShf(J) = CDENVV(J)*CP |
|
./pkg/aim_v23/phy_suflux_ocean.F |
95 |
SUFLUX_OCEAN |
SHF(J) = CDENVV(J)*CP*(Tsurf(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_prep.F |
125 |
SUFLUX_PREP |
RCP = 1. _d 0 /CP |
|
./pkg/aim_v23/phy_suflux_prep.F |
126 |
SUFLUX_PREP |
kappa = RD/CP |
|
./pkg/aim_v23/phy_suflux_sice.F |
174 |
SUFLUX_SICE |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
175 |
SUFLUX_SICE |
Shf0(J) = Shf0(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
176 |
SUFLUX_SICE |
dShf(J) = CDENVV(J)*CP |
|
./pkg/aim_v23/phy_suflux_sice.F |
177 |
SUFLUX_SICE |
& + dShf(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
186 |
SUFLUX_SICE |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
187 |
SUFLUX_SICE |
Shf0(J) = CDENVV(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
188 |
SUFLUX_SICE |
dShf(J) = CDENVV(J)*CP |
|
./pkg/aim_v23/phy_vdifsc.F |
120 |
VDIFSC |
factP = CP*SIGH(K)**(RD/CP) |
|
./pkg/aim_v23/phy_vdifsc.F |
124 |
VDIFSC |
DeltaPI(K) = SIG(K+1)**(RD/CP) - SIG(K)**(RD/CP) |
|
./pkg/aim_v23/phy_vdifsc.F |
144 |
VDIFSC |
FLUXSE = FSHCQ *DMSE/CP |
|
./pkg/aim_v23/phy_vdifsc.F |
194 |
VDIFSC |
& +SEGRAD*CP*DeltaPI(K)*(SE(J,K+1)+SE(J,K))*0.5 _d 0 |
|
./pkg/aim_v23/phy_vdifsc.F |
199 |
VDIFSC |
FLUXSE = DMSE*CVDI(J)/(TRVDS*CP) |
|
./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 |
105 |
BULKF_FORMULA_AIM |
EQUIVALENCE ( cpair , CP ) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
208 |
BULKF_FORMULA_AIM |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
209 |
BULKF_FORMULA_AIM |
Shf0(J) = Shf0(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
210 |
BULKF_FORMULA_AIM |
dShf(J) = CDENVV(J)*CP |
|
./pkg/bulk_force/bulkf_formula_aim.F |
211 |
BULKF_FORMULA_AIM |
& + dShf(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
220 |
BULKF_FORMULA_AIM |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
221 |
BULKF_FORMULA_AIM |
Shf0(J) = CDENVV(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
222 |
BULKF_FORMULA_AIM |
dShf(J) = CDENVV(J)*CP |