| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_diagnostics.F |
174 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_RelHum.', suff, Nr, RH, |
|
./pkg/aim_v23/aim_diagnostics.F |
370 |
AIM_DIAGNOSTICS |
& + RH(I2,Katm,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
402 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( RH(1,1,myThid), |
|
./pkg/aim_v23/com_physvar.h |
32 |
NO PROCEDURE |
COMMON /PHYGR2/ RH |
|
./pkg/aim_v23/com_physvar.h |
34 |
NO PROCEDURE |
_RL RH (NGP,NLEV,MAX_NO_THREADS) |
|
./pkg/aim_v23/phy_driver.F |
169 |
PHY_DRIVER |
O RH(1,K,myThid),QSAT(1,K), |
|
./pkg/aim_v23/phy_driver.F |
248 |
PHY_DRIVER |
CALL RADSW (PSG,dpFac,QG1,RH(1,1,myThid),ALB1(1,0,myThid), |
|
./pkg/aim_v23/phy_driver.F |
292 |
PHY_DRIVER |
I PSG, TG1, QG1, RH(1,1,myThid), SE, VsurfSq, |
|
./pkg/aim_v23/phy_driver.F |
395 |
PHY_DRIVER |
CALL RADSW (PSG,dpFac,QG1,RH(1,1,myThid),ALB1(1,0,myThid), |
|
./pkg/aim_v23/phy_driver.F |
439 |
PHY_DRIVER |
CALL VDIFSC (dpFac, SE, RH(1,1,myThid), QG1, QSAT, |
|
./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 |
280 |
RADSW |
CLOUDC(J)=MAX(CLOUDC(J),RH(J,K)-RHCL1) |
|
./pkg/aim_v23/phy_radiat.F |
283 |
RADSW |
CLDCLW(J,K)=MAX(0. _d 0,RH(J,K)-RHCL1) |
|
./pkg/aim_v23/phy_shtorh.F |
105 |
SHTORH |
RH(J)=QA(J)/QSAT(J) |
|
./pkg/aim_v23/phy_shtorh.F |
107 |
SHTORH |
RH(J)=0. |
|
./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_shtorh.F |
70 |
SHTORH |
RH(J) = QSAT(J)*C1*(T0-T1)*recT*recT*sigP/(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_suflux_prep.F |
10 |
SUFLUX_PREP |
I PSA,TA,QA,RH,ThA,Vsurf2,WVS,CLAT,FOROG, |
|
./pkg/aim_v23/phy_suflux_prep.F |
138 |
SUFLUX_PREP |
tmpRH(J)=RH(J,Ktmp) |
|
./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 |
139 |
VDIFSC |
DRH = RH(J,Ktmp)-RH(J,NL1) |
|
./pkg/aim_v23/phy_vdifsc.F |
174 |
VDIFSC |
DRH=RH(J,K+1)-RH(J,K) |
|
./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 |
107 |
BULKF_SH2RH_AIM |
RH(J)=0. |
|
./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) |
|
./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 |
75 |
BULKF_SH2RH_AIM |
RH(J) = QSAT(J)*C2*(T0-T2)*recT*recT*sigP/(sigP-QS2*tmpQ) |