| File |
Line number |
Procedure |
Code |
|
./pkg/aim/phy_shtorh.F |
30 |
SHTORH |
_RL TA(NGP), PS(NGP), QA(NGP), RH(NGP), QSAT(NGP) |
|
./pkg/aim/phy_shtorh.F |
55 |
SHTORH |
QSAT(J)=0. |
|
./pkg/aim/phy_shtorh.F |
57 |
SHTORH |
QSAT(J)=E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1)) |
|
./pkg/aim/phy_shtorh.F |
59 |
SHTORH |
QSAT(J)=E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |
|
./pkg/aim/phy_shtorh.F |
65 |
SHTORH |
QSAT(J)=622. _d 0*QSAT(J)/(PS(1)-0.378 _d 0*QSAT(J)) |
|
./pkg/aim/phy_shtorh.F |
69 |
SHTORH |
QSAT(J)=622. _d 0*QSAT(J)/(SIG*PS(J)-0.378 _d 0*QSAT(J)) |
|
./pkg/aim/phy_shtorh.F |
6 |
SHTORH |
SUBROUTINE SHTORH (IMODE,NGP,TA,PS,SIG,QA,RH,QSAT,myThid) |
|
./pkg/aim/phy_shtorh.F |
79 |
SHTORH |
IF(QSAT(J).ne.0.) then |
|
./pkg/aim/phy_shtorh.F |
80 |
SHTORH |
RH(J)=QA(J)/QSAT(J) |
|
./pkg/aim/phy_shtorh.F |
87 |
SHTORH |
QA(J)=RH(J)*QSAT(J) |
|
./pkg/aim/com_physvar.h |
27 |
NO PROCEDURE |
COMMON /PHYGR2/ SE, RH, QSAT |
|
./pkg/aim/com_physvar.h |
30 |
NO PROCEDURE |
_RL QSAT(NGP,NLEV,MAX_NO_THREADS) |
|
./pkg/aim/phy_vdifsc.F |
149 |
VDIFSC |
stab(J)=dThdp+ALHC*(QSAT(J,NL1(J))-QSAT(J,NLEVxy(J,myThid))) |
|
./pkg/aim/phy_vdifsc.F |
161 |
VDIFSC |
& RH(J,NL1(J))*QSAT(J,NLEVxy(J,myThid)) ) |
|
./pkg/aim/phy_vdifsc.F |
51 |
VDIFSC |
& RH(NGP,NLEV), QA(NGP,NLEV), QSAT(NGP,NLEV) |
|
./pkg/aim/phy_vdifsc.F |
7 |
VDIFSC |
SUBROUTINE VDIFSC (UA,VA,Ta,RH,QA,QSAT, |
|
./pkg/aim/phy_suflux.F |
63 |
SUFLUX |
* QA(NGP,NLEV), RH(NGP,NLEV), QSAT(NGP,NLEV), PHI(NGP,NLEV), |
|
./pkg/aim/phy_suflux.F |
6 |
SUFLUX |
SUBROUTINE SUFLUX (PSA,UA,VA,TA,QA,RH,QSAT,Vsurfsq,PHI, |
|
./pkg/aim/phy_lscond.F |
43 |
LSCOND |
_RL PSA(NGP), QA(NGP,NLEV), QSAT(NGP,NLEV) |
|
./pkg/aim/phy_lscond.F |
6 |
LSCOND |
SUBROUTINE LSCOND (PSA,QA,QSAT, |
|
./pkg/aim/phy_lscond.F |
71 |
LSCOND |
DQLSC(J,K) = MIN(0. _d 0,(RHLSC*QSAT(J,K)-QA(J,K)))*RTLSC |
|
./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 |
175 |
CONVMF |
IF (QA(J,NLEVxy(J,myThid)).LT.RHBL*QSAT(J,NLEVxy(J,myThid))) |
|
./pkg/aim/phy_convmf.F |
197 |
CONVMF |
DQSAT=MAX(QSAT(J,K)-QB, 0.05 _d 0*QSAT(J,K)) |
|
./pkg/aim/phy_convmf.F |
198 |
CONVMF |
FMASS=FM0(J)*PSA(J)*(QA(J,K)-RHBL*QSAT(J,K))/DQSAT |
|
./pkg/aim/phy_convmf.F |
204 |
CONVMF |
FUQ=FMASS*QSAT(J,K) |
|
./pkg/aim/phy_convmf.F |
206 |
CONVMF |
FUQ=FMASS*MAX( QSAT(J,K), MIN(QB,QA(J,K)) ) |
|
./pkg/aim/phy_convmf.F |
258 |
CONVMF |
QSATB=QSAT(J,K)+WVI(K,2)*(QSAT(J,K+1)-QSAT(J,K)) |
|
./pkg/aim/phy_convmf.F |
47 |
CONVMF |
_RL PSA(NGP), Ta(NGP,NLEV), QA(NGP,NLEV), QSAT(NGP,NLEV) |
|
./pkg/aim/phy_convmf.F |
7 |
CONVMF |
SUBROUTINE CONVMF (PSA,Ta,QA,QSAT, |
|
./pkg/aim/phy_driver.F |
109 |
PDRIVER |
* RH(1,K,myThid),QSAT(1,K,myThid), |
|
./pkg/aim/phy_driver.F |
119 |
PDRIVER |
QSAT(J,K,myThid)=QSAT(J,K,myThid)*Phymask(J,K) |
|
./pkg/aim/phy_driver.F |
132 |
PDRIVER |
& QG1(1,1,myThid),QSAT(1,1,myThid), |
|
./pkg/aim/phy_driver.F |
147 |
PDRIVER |
CALL LSCOND (PSG(1,myThid),QG1(1,1,myThid),QSAT(1,1,myThid), |
|
./pkg/aim/phy_driver.F |
195 |
PDRIVER |
& RH(1,1,myThid),QSAT(1,1,myThid), |
|
./pkg/aim/phy_driver.F |
250 |
PDRIVER |
& QG1(1,1,myThid), QSAT(1,1,myThid), |
|
./verification/fizhi-cs-aqualev10/code/ini_salt.F |
108 |
INI_SALT |
call QSAT(temperature(i,j,k,bi,bj),pinmb,qstar(i,j,k,bi,bj), |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1844 |
TRBFLX |
call QSAT ( tl(i,nlev),pl(i,nlev),shsat(i,nlev),dum,.false. ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1940 |
TRBFLX |
call QSAT ( tl(i,LL),pl(i,LL),shsat(i,LL),dum,.false. ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
424 |
TURBIO |
call QSAT ( tground(i),utility(i),shg(i),dqsdt(i),.true. ) |
|
./pkg/aim_v23/phy_shtorh.F |
104 |
SHTORH |
IF(QSAT(J).NE.0.) then |
|
./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 |
63 |
SHTORH |
QSAT(J)=0. |
|
./pkg/aim_v23/phy_shtorh.F |
68 |
SHTORH |
QSAT(J)= QS1*tmpQ/(sigP-QS2*tmpQ) |
|
./pkg/aim_v23/phy_shtorh.F |
6 |
SHTORH |
SUBROUTINE SHTORH (IMODE,NGP,TA,PS,SIG,QA,RH,QSAT,myThid) |
|
./pkg/aim_v23/phy_shtorh.F |
70 |
SHTORH |
RH(J) = QSAT(J)*C1*(T0-T1)*recT*recT*sigP/(sigP-QS2*tmpQ) |
|
./pkg/aim_v23/phy_shtorh.F |
73 |
SHTORH |
QSAT(J)= QS1*tmpQ/(sigP-QS2*tmpQ) |
|
./pkg/aim_v23/phy_shtorh.F |
75 |
SHTORH |
RH(J) = QSAT(J)*C2*(T0-T2)*recT*recT*sigP/(sigP-QS2*tmpQ) |
|
./pkg/aim_v23/phy_shtorh.F |
82 |
SHTORH |
QSAT(J)=0. |
|
./pkg/aim_v23/phy_shtorh.F |
84 |
SHTORH |
QSAT(J)=E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1)) |
|
./pkg/aim_v23/phy_shtorh.F |
86 |
SHTORH |
QSAT(J)=E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |
|
./pkg/aim_v23/phy_shtorh.F |
92 |
SHTORH |
QSAT(J)= QS1*QSAT(J)/( PS(1) - QS2*QSAT(J)) |
|
./pkg/aim_v23/phy_shtorh.F |
96 |
SHTORH |
QSAT(J)= QS1*QSAT(J)/(SIG*PS(J)- QS2*QSAT(J)) |
|
./pkg/aim_v23/com_physvar.h |
31 |
NO PROCEDURE |
_RL QSAT (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 |
149 |
VDIFSC |
FLUXQ = FSHCQ*QSAT(J,Ktmp)*DRH |
|
./pkg/aim_v23/phy_vdifsc.F |
157 |
VDIFSC |
FLUXQ = QSAT(J,NL1)*DRH*CVDI(J)/TRVDI |
|
./pkg/aim_v23/phy_vdifsc.F |
178 |
VDIFSC |
FLUXQ = QSAT(J,K)*DRH*CVDI(J)/TRVDI |
|
./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/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 |
90 |
LSCOND |
DQLSC(J,K) = MIN(0. _d 0,(RHREF*QSAT(J,K)-QA(J,K)))*RTLSC |
|
./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 |
191 |
CONVMF |
QATHR(J)=MIN(QBL,RHBL*QSAT(J,Ktmp)) |
|
./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 |
271 |
CONVMF |
DELQ=RHIL*QSAT(J,K)-QA(J,K) |
|
./pkg/aim_v23/phy_convmf.F |
285 |
CONVMF |
QSATB=QSAT(J,K)+WVI(K,2)*(QSAT(J,K+1)-QSAT(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_driver.F |
131 |
PHY_DRIVER |
O RH(1,K,myThid),QSAT(1,K), |
|
./pkg/aim_v23/phy_driver.F |
141 |
PHY_DRIVER |
CALL CONVMF (PSG,dpFac,SE,QG1,QSAT, |
|
./pkg/aim_v23/phy_driver.F |
157 |
PHY_DRIVER |
CALL LSCOND (PSG,dpFac,QG1,QSAT, |
|
./pkg/aim_v23/phy_driver.F |
371 |
PHY_DRIVER |
CALL VDIFSC (dpFac, SE, RH(1,1,myThid), QG1, QSAT, |
|
./pkg/fizhi/fizhi_moist.F |
1641 |
CLOUD |
CALL QSAT(TX3(I), TX1(I), TX2(I), TX4(I), .TRUE.) |
|
./pkg/fizhi/fizhi_moist.F |
2407 |
RNEVP |
call QSAT ( temp1(i,3),pl(i,L),temp1(i,2),temp1(i,6),.true. ) |
|
./pkg/fizhi/fizhi_moist.F |
2475 |
RNEVP |
call QSAT( tl(i,L),pl(i,L),rh,dum,.false.) |
|
./pkg/fizhi/fizhi_moist.F |
2575 |
SRCLOUDS |
call QSAT ( temp,pl(i,L),qs(i,L),dum,.false. ) |
|
./pkg/fizhi/fizhi_moist.F |
2622 |
CTEI |
call QSAT ( t,p,qs,dqsdt,.true. ) |
|
./pkg/fizhi/fizhi_utils.F |
183 |
QSAT |
SUBROUTINE QSAT (TT,P,Q,DQDT,LDQDT) |
|
./pkg/fizhi/fizhi_utils.F |
386 |
VQSAT |
call QSAT ( tt(i),p(i),q(i),dqdt(i),ldqdt ) |
|
./pkg/fizhi/fizhi_turb.F |
1804 |
TRBFLX |
call QSAT ( tl(i,nlev),pl(i,nlev),shsat(i,nlev),dum,.false. ) |
|
./pkg/fizhi/fizhi_turb.F |
1900 |
TRBFLX |
call QSAT ( tl(i,LL),pl(i,LL),shsat(i,LL),dum,.false. ) |
|
./pkg/fizhi/fizhi_turb.F |
424 |
TURBIO |
call QSAT ( tground(i),utility(i),shg(i),dqsdt(i),.true. ) |