| File |
Line number |
Procedure |
Code |
|
./pkg/aim/com_physvar.h |
27 |
NO PROCEDURE |
COMMON /PHYGR2/ SE, RH, QSAT |
|
./pkg/aim/com_physvar.h |
28 |
NO PROCEDURE |
_RL SE(NGP,NLEV,MAX_NO_THREADS) |
|
./pkg/aim/phy_driver.F |
100 |
PDRIVER |
SE(J,K,myThid)=CP*TG1(J,K,myThid)+PHIG1(J,K,myThid) |
|
./pkg/aim_v23/com_physvar.h |
29 |
NO PROCEDURE |
_RL SE (NGP,NLEV) |
|
./pkg/aim_v23/phy_vdifsc.F |
122 |
VDIFSC |
dSEdp(J,K)=(SE(J,K+1)-SE(J,K))*factP |
|
./pkg/aim_v23/phy_vdifsc.F |
194 |
VDIFSC |
& +SEGRAD*CP*DeltaPI(K)*(SE(J,K+1)+SE(J,K))*0.5 _d 0 |
|
./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_convmf.F |
124 |
CONVMF |
dSEdp(J,K)=(SE(J,K+1)-SE(J,K))*factP |
|
./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 |
104 |
PHY_DRIVER |
O TG1, QG1, SE, VsurfSq, PSG, dpFac, kGround, |
|
./pkg/aim_v23/phy_driver.F |
141 |
PHY_DRIVER |
CALL CONVMF (PSG,dpFac,SE,QG1,QSAT, |
|
./pkg/aim_v23/phy_driver.F |
165 |
PHY_DRIVER |
I PSG, dpFac, SE, ICLTOP, |
|
./pkg/aim_v23/phy_driver.F |
238 |
PHY_DRIVER |
I PSG, TG1, QG1, RH(1,1,myThid), SE, VsurfSq, |
|
./pkg/aim_v23/phy_driver.F |
371 |
PHY_DRIVER |
CALL VDIFSC (dpFac, SE, RH(1,1,myThid), QG1, QSAT, |
|
./pkg/sphere/sphere.F |
401 |
SHC4ZONE |
REAL DEG2RAD, CE, CO, SE, SO |
|
./pkg/sphere/sphere.F |
438 |
SHC4ZONE |
SE = HS(J)+HN(JP) |
|
./pkg/sphere/sphere.F |
446 |
SHC4ZONE |
SHC(K-M) = SHC(K-M) + P(I1) * SE |
|
./pkg/sphere/sphere.F |
456 |
SHC4ZONE |
SHC(K-M) = SHC(K-M) + P(I) * SE |