| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1701 |
CLOUD |
CALL QSAT(TX3(I), TX1(I), TX2(I), TX4(I), .TRUE.) |
|
./pkg/fizhi/fizhi_moist.F |
2480 |
RNEVP |
call QSAT ( temp1(i,3),pl(i,L),temp1(i,2),temp1(i,6),.true. ) |
|
./pkg/fizhi/fizhi_moist.F |
2548 |
RNEVP |
call QSAT( tl(i,L),pl(i,L),rh,dum,.false.) |
|
./pkg/fizhi/fizhi_moist.F |
2648 |
SRCLOUDS |
call QSAT ( temp,pl(i,L),qs(i,L),dum,.false. ) |
|
./pkg/fizhi/fizhi_moist.F |
2695 |
CTEI |
call QSAT ( t,p,qs,dqsdt,.true. ) |
|
./pkg/fizhi/fizhi_moist.F |
481 |
MOISTIO |
call QSAT (tmp2(i,1),tmp2(i,2),tmp2(i,3),dum,.false.) |
|
./pkg/fizhi/fizhi_turb.F |
1718 |
TRBFLX |
call QSAT ( tl(i,nlev),pl(i,nlev),shsat(i,nlev),dum,.false. ) |
|
./pkg/fizhi/fizhi_turb.F |
1820 |
TRBFLX |
call QSAT ( tl(i,LL),pl(i,LL),shsat(i,LL),dum,.false. ) |
|
./pkg/fizhi/fizhi_turb.F |
397 |
TURBIO |
call QSAT ( tground(i),utility(i),shg(i),dqsdt(i),.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 ) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
108 |
INI_SALT |
call QSAT(temperature(i,j,k,bi,bj),pinmb,qstar(i,j,k,bi,bj), |
|
./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 |
169 |
PHY_DRIVER |
O RH(1,K,myThid),QSAT(1,K), |
|
./pkg/aim_v23/phy_driver.F |
179 |
PHY_DRIVER |
CALL CONVMF (PSG,dpFac,SE,QG1,QSAT, |
|
./pkg/aim_v23/phy_driver.F |
195 |
PHY_DRIVER |
CALL LSCOND (PSG,dpFac,QG1,QSAT, |
|
./pkg/aim_v23/phy_driver.F |
439 |
PHY_DRIVER |
CALL VDIFSC (dpFac, SE, RH(1,1,myThid), QG1, QSAT, |
|
./pkg/aim_v23/phy_driver.F |
98 |
PHY_DRIVER |
_RL QSAT (NGP,NLEV) |
|
./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_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/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/bulk_force/bulkf_sh2rh_aim.F |
104 |
BULKF_SH2RH_AIM |
IF(QSAT(J).NE.0.) then |
|
./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 |
63 |
BULKF_SH2RH_AIM |
QSAT(J)=0. |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
68 |
BULKF_SH2RH_AIM |
QSAT(J)= QS1*tmpQ/(sigP-QS2*tmpQ) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
6 |
BULKF_SH2RH_AIM |
SUBROUTINE BULKF_SH2RH_AIM(IMODE,NGP,TA,PS,SIG,QA,RH,QSAT,myThid) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
70 |
BULKF_SH2RH_AIM |
RH(J) = QSAT(J)*C1*(T0-T1)*recT*recT*sigP/(sigP-QS2*tmpQ) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
73 |
BULKF_SH2RH_AIM |
QSAT(J)= QS1*tmpQ/(sigP-QS2*tmpQ) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
75 |
BULKF_SH2RH_AIM |
RH(J) = QSAT(J)*C2*(T0-T2)*recT*recT*sigP/(sigP-QS2*tmpQ) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
82 |
BULKF_SH2RH_AIM |
QSAT(J)=0. |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
84 |
BULKF_SH2RH_AIM |
QSAT(J)=E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
86 |
BULKF_SH2RH_AIM |
QSAT(J)=E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
92 |
BULKF_SH2RH_AIM |
QSAT(J)= QS1*QSAT(J)/( PS(1) - QS2*QSAT(J)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
96 |
BULKF_SH2RH_AIM |
QSAT(J)= QS1*QSAT(J)/(SIG*PS(J)- QS2*QSAT(J)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
422 |
DIAGNOSTICS_FILL_STATE |
CALL QSAT(dummy1,dummy2,dummy3,dummy4,.false.) |