| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_dyn2aim.F |
257 |
AIM_DYN2AIM |
WVSurf(I2,myThid) = (LOG(PSA(I2))-SIGL(k))*WVI(k-1,1) |
|
./pkg/aim_v23/com_physcon.h |
32 |
NO PROCEDURE |
& SIG, SIGL, SIGH, DSIG, GRDSIG, GRDSCP, WVI |
|
./pkg/aim_v23/com_physcon.h |
41 |
NO PROCEDURE |
_RL WVI(NLEV,2) |
|
./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 |
214 |
CONVMF |
QB=QA(J,K1)+WVI(K1,2)*(QA(J,K)-QA(J,K1)) |
|
./pkg/aim_v23/phy_convmf.F |
234 |
CONVMF |
FDMUS = FMASS*dSEdp(J,K1)*(WVI(K1,2)-1.) |
|
./pkg/aim_v23/phy_convmf.F |
259 |
CONVMF |
QB=QA(J,K1)+WVI(K1,2)*(QA(J,K)-QA(J,K1)) |
|
./pkg/aim_v23/phy_convmf.F |
264 |
CONVMF |
DFSE(J,K) = FMASS*(WVI(K1,2)-1.)*dSEdp(J,K1) |
|
./pkg/aim_v23/phy_convmf.F |
265 |
CONVMF |
& -(FMASS-ENMASS)*WVI(K,2)*dSEdp(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_inphys.F |
101 |
INPHYS |
WVI(NLEV,1)=0. |
|
./pkg/aim_v23/phy_inphys.F |
102 |
INPHYS |
WVI(NLEV,2)=-SIGL(NLEV)*WVI(NLEV-1,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 |
97 |
INPHYS |
WVI(K,1)=1./(SIGL(K+1)-SIGL(K)) |
|
./pkg/aim_v23/phy_inphys.F |
98 |
INPHYS |
WVI(K,2)=(LOG(SIGH(K))-SIGL(K))*WVI(K,1) |
|
./pkg/aim_v23/phy_radiat.F |
593 |
RADLW |
ST4A(J,K,2)=TA(J,K)+WVI(K,2)*(TA(J,K+1)-TA(J,K)) |