| File |
Line number |
Procedure |
Code |
|
./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_convmf.F |
149 |
CONVMF |
ENTR(K)= ( MAX( 0. _d 0, SIG(K)/PSA(J) - 0.5 _d 0) )**2 |
|
./pkg/aim_v23/phy_driver.F |
168 |
PHY_DRIVER |
CALL SHTORH (1,NGP,TG1(1,K),PSG_1,SIG(K),QG1(1,K), |
|
./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_lscond.F |
81 |
LSCOND |
SIG2=SIG(K)*SIG(K) |
|
./pkg/aim_v23/phy_radiat.F |
274 |
RADSW |
DQACL=(QACL2-QACL1)/(0.5 _d 0 - SIG(2)) |
|
./pkg/aim_v23/phy_radiat.F |
278 |
RADSW |
QACL3=MIN(QACL2,QACL1+DQACL*(SIG(K)-SIG(2))) |
|
./pkg/aim_v23/phy_radiat.F |
330 |
RADSW |
ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2 |
|
./pkg/aim_v23/phy_radiat.F |
347 |
RADSW |
ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2 |
|
./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/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/bulk_force/bulkf_sh2rh_aim.F |
35 |
BULKF_SH2RH_AIM |
_RL SIG |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
65 |
BULKF_SH2RH_AIM |
IF (SIG.GT.0.0) sigP=SIG*PS(J) |
|
./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 |
90 |
BULKF_SH2RH_AIM |
IF (SIG.LE.0.0) THEN |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
96 |
BULKF_SH2RH_AIM |
QSAT(J)= QS1*QSAT(J)/(SIG*PS(J)- QS2*QSAT(J)) |