| File |
Line number |
Procedure |
Code |
|
./pkg/aim/phy_shtorh.F |
33 |
SHTORH |
_RL SIG |
|
./pkg/aim/phy_shtorh.F |
63 |
SHTORH |
IF (SIG.LE.0.0) THEN |
|
./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/com_physcon.h |
27 |
NO PROCEDURE |
& SIG, SIGL, SIGH, DSIG, POUT, GRDSIG, GRDSCP, WVI, FMU |
|
./pkg/aim/com_physcon.h |
28 |
NO PROCEDURE |
_RL SIG(NLEV) |
|
./pkg/aim/phy_convmf.F |
111 |
CONVMF |
ENTR(J,K)=MAX(0. _d 0,SIG(K)-0.5 _d 0)*DENTR(J) |
|
./pkg/aim/phy_convmf.F |
84 |
CONVMF |
DENTR(J)=ENTMAX/(SIG(NLEV-1)-0.5) |
|
./pkg/aim/phy_inphys.F |
72 |
INPHYS |
SIG(K) = FSG(K) |
|
./pkg/aim/phy_driver.F |
108 |
PDRIVER |
& SIG(K),QG1(1,K,myThid), |
|
./pkg/aim_v23/phy_shtorh.F |
35 |
SHTORH |
_RL SIG |
|
./pkg/aim_v23/phy_shtorh.F |
65 |
SHTORH |
IF (SIG.GT.0.0) sigP=SIG*PS(J) |
|
./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 |
90 |
SHTORH |
IF (SIG.LE.0.0) THEN |
|
./pkg/aim_v23/phy_shtorh.F |
96 |
SHTORH |
QSAT(J)= QS1*QSAT(J)/(SIG*PS(J)- QS2*QSAT(J)) |
|
./pkg/aim_v23/com_physcon.h |
32 |
NO PROCEDURE |
& SIG, SIGL, SIGH, DSIG, GRDSIG, GRDSCP, WVI |
|
./pkg/aim_v23/com_physcon.h |
34 |
NO PROCEDURE |
_RL SIG(NLEV) |
|
./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 |
134 |
VDIFSC |
DRH0=RHGRAD*(SIG(Ktmp)-SIG(NL1)) |
|
./pkg/aim_v23/phy_vdifsc.F |
172 |
VDIFSC |
DRH0=RHGRAD*(SIG(K+1)-SIG(K)) |
|
./pkg/aim_v23/phy_lscond.F |
84 |
LSCOND |
SIG2=SIG(K)*SIG(K) |
|
./pkg/aim_v23/phy_convmf.F |
149 |
CONVMF |
ENTR(K)= ( MAX( 0. _d 0, SIG(K)/PSA(J) - 0.5 _d 0) )**2 |
|
./pkg/aim_v23/phy_radiat.F |
220 |
RADSW |
DQACL=(QACL2-QACL1)/(0.5 _d 0 - SIG(2)) |
|
./pkg/aim_v23/phy_radiat.F |
224 |
RADSW |
QACL3=MIN(QACL2,QACL1+DQACL*(SIG(K)-SIG(2))) |
|
./pkg/aim_v23/phy_radiat.F |
267 |
RADSW |
ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2 |
|
./pkg/aim_v23/phy_radiat.F |
284 |
RADSW |
ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2 |
|
./pkg/aim_v23/phy_inphys.F |
109 |
INPHYS |
& k,SIG(k),SIGH(k),SIGL(k),WVI(K,1),WVI(K,2) |
|
./pkg/aim_v23/phy_inphys.F |
82 |
INPHYS |
SIG(K) = 0.5*(HSG(K)+HSG(K-1)) |
|
./pkg/aim_v23/phy_inphys.F |
83 |
INPHYS |
SIGL(K) = LOG(SIG(K)) |
|
./pkg/aim_v23/phy_driver.F |
130 |
PHY_DRIVER |
CALL SHTORH (1,NGP,TG1(1,K),PSG_1,SIG(K),QG1(1,K), |