| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
12 |
TILE |
U TC, TD, QA, SWET1, SWET2, SWET3, CAPAC, SNOW, |
|
./pkg/fizhi/fizhi_lsm.F |
195 |
TILE |
EA(CHNO) = QA(CHNO) * PSUR(CHNO) / EPSILON |
|
./pkg/fizhi/fizhi_lsm.F |
42 |
TILE |
& TC(NCH), TD(NCH), QA(NCH), BOMB(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
456 |
TILE |
QA(CHNO) = EA(CHNO) * EPSILON / PSUR(CHNO) |
|
./pkg/aim_v23/aim_dyn2aim.F |
10 |
AIM_DYN2AIM |
O TA, QA, ThA, Vsurf2, PSA, dpFac, |
|
./pkg/aim_v23/aim_dyn2aim.F |
176 |
AIM_DYN2AIM |
QA(I2,Katm) = MAX( salt(i,j,k,bi,bj), zeroRL ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
181 |
AIM_DYN2AIM |
QA(I2,Katm) = 0. _d 0 |
|
./pkg/aim_v23/aim_dyn2aim.F |
55 |
AIM_DYN2AIM |
_RL TA(NGP,NLEV), QA(NGP,NLEV), ThA(NGP,NLEV) |
|
./pkg/aim_v23/phy_convmf.F |
192 |
CONVMF |
IF (QA(J,Ktmp).LT.QATHR(J).OR.PSA(J).LT.PSMIN) |
|
./pkg/aim_v23/phy_convmf.F |
210 |
CONVMF |
QMAX=MAX(1.01 _d 0 *QA(J,K),QSAT(J,K)) |
|
./pkg/aim_v23/phy_convmf.F |
214 |
CONVMF |
QB=QA(J,K1)+WVI(K1,2)*(QA(J,K)-QA(J,K1)) |
|
./pkg/aim_v23/phy_convmf.F |
215 |
CONVMF |
QB=MIN(QB,QA(J,K)) |
|
./pkg/aim_v23/phy_convmf.F |
222 |
CONVMF |
FMASS = FM0(J)*MIN(FQMAX,(QA(J,K)-QATHR(J))/(QMAX-QB)) |
|
./pkg/aim_v23/phy_convmf.F |
255 |
CONVMF |
FUQ=FUQ+ENMASS*QA(J,K) |
|
./pkg/aim_v23/phy_convmf.F |
259 |
CONVMF |
QB=QA(J,K1)+WVI(K1,2)*(QA(J,K)-QA(J,K1)) |
|
./pkg/aim_v23/phy_convmf.F |
271 |
CONVMF |
DELQ=RHIL*QSAT(J,K)-QA(J,K) |
|
./pkg/aim_v23/phy_convmf.F |
50 |
CONVMF |
_RL PSA(NGP), SE(NGP,NLEV), QA(NGP,NLEV), QSAT(NGP,NLEV) |
|
./pkg/aim_v23/phy_convmf.F |
6 |
CONVMF |
SUBROUTINE CONVMF (PSA,dpFac,SE,QA,QSAT, |
|
./pkg/aim_v23/phy_lscond.F |
45 |
LSCOND |
_RL PSA(NGP), dpFac(NGP,NLEV), QA(NGP,NLEV), QSAT(NGP,NLEV) |
|
./pkg/aim_v23/phy_lscond.F |
6 |
LSCOND |
SUBROUTINE LSCOND (PSA,dpFac,QA,QSAT, |
|
./pkg/aim_v23/phy_lscond.F |
87 |
LSCOND |
DQLSC(J,K) = MIN(0. _d 0,(RHREF*QSAT(J,K)-QA(J,K)))*RTLSC |
|
./pkg/aim_v23/phy_radiat.F |
158 |
RADSW |
SUBROUTINE RADSW (PSA,dpFac,QA,RH,ALB, |
|
./pkg/aim_v23/phy_radiat.F |
199 |
RADSW |
_RL PSA(NGP),dpFac(NGP,NLEV),QA(NGP,NLEV),RH(NGP,NLEV) |
|
./pkg/aim_v23/phy_radiat.F |
279 |
RADSW |
IF (RH(J,K).GT.RHCL1.AND.QA(J,K).GT.QACL1) THEN |
|
./pkg/aim_v23/phy_radiat.F |
281 |
RADSW |
IF (QA(J,K).GT.QACL3) ICLTOP(J)=K |
|
./pkg/aim_v23/phy_radiat.F |
292 |
RADSW |
& QCLOUD(J)= MAX( QA(J,kGrd(J)), QA(J,NL1(J)) ) |
|
./pkg/aim_v23/phy_radiat.F |
334 |
RADSW |
& (ABS1+ABSWV1*QA(J,K)+2.*ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
337 |
RADSW |
& (ABS1+ABSWV1*QA(J,K)+ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
339 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
350 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
356 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*ABSWV2*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
486 |
RADSW |
TAU2(J,K,3)=EXP(-DELTAP*ABLWV1*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
487 |
RADSW |
TAU2(J,K,4)=EXP(-DELTAP*ABLWV2*QA(J,K)) |
|
./pkg/aim_v23/phy_shtorh.F |
105 |
SHTORH |
RH(J)=QA(J)/QSAT(J) |
|
./pkg/aim_v23/phy_shtorh.F |
112 |
SHTORH |
QA(J)=RH(J)*QSAT(J) |
|
./pkg/aim_v23/phy_shtorh.F |
32 |
SHTORH |
_RL TA(NGP), PS(NGP), QSAT(NGP), QA(*), RH(*) |
|
./pkg/aim_v23/phy_shtorh.F |
6 |
SHTORH |
SUBROUTINE SHTORH (IMODE,NGP,TA,PS,SIG,QA,RH,QSAT,myThid) |
|
./pkg/aim_v23/phy_suflux_prep.F |
10 |
SUFLUX_PREP |
I PSA,TA,QA,RH,ThA,Vsurf2,WVS,CLAT,FOROG, |
|
./pkg/aim_v23/phy_suflux_prep.F |
159 |
SUFLUX_PREP |
Q0(J)=FHUM0*Q0(J)+GHUM0*QA(J,kGrd(J)) |
|
./pkg/aim_v23/phy_suflux_prep.F |
81 |
SUFLUX_PREP |
_RL PSA(NGP), TA(NGP,NLEV), QA(NGP,NLEV), RH(NGP,NLEV) |
|
./pkg/aim_v23/phy_vdifsc.F |
138 |
VDIFSC |
DMSE = dSEdp(J,NL1) + ALHC*(QA(J,Ktmp)-QSAT(J,NL1)) |
|
./pkg/aim_v23/phy_vdifsc.F |
56 |
VDIFSC |
_RL SE(NGP,NLEV), RH(NGP,NLEV), QA(NGP,NLEV), QSAT(NGP,NLEV) |
|
./pkg/aim_v23/phy_vdifsc.F |
6 |
VDIFSC |
SUBROUTINE VDIFSC (dpFac,SE,RH,QA,QSAT, |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
105 |
BULKF_SH2RH_AIM |
RH(J)=QA(J)/QSAT(J) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
112 |
BULKF_SH2RH_AIM |
QA(J)=RH(J)*QSAT(J) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
32 |
BULKF_SH2RH_AIM |
_RL TA(NGP), PS(NGP), QSAT(NGP), QA(*), RH(*) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
6 |
BULKF_SH2RH_AIM |
SUBROUTINE BULKF_SH2RH_AIM(IMODE,NGP,TA,PS,SIG,QA,RH,QSAT,myThid) |