File |
Line number |
Procedure |
Code |
./pkg/aim_v23/aim_dyn2aim.F |
10 |
AIM_DYN2AIM |
O TA, QA, ThA, Vsurf2, PSA, dpFac, |
./pkg/aim_v23/aim_dyn2aim.F |
115 |
AIM_DYN2AIM |
dpFac(I2,Katm) = h0FacC(i,j,k,bi,bj)*rStarFacC(i,j,bi,bj) |
./pkg/aim_v23/aim_dyn2aim.F |
127 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFac_surfC(i,j,bi,bj) |
./pkg/aim_v23/aim_dyn2aim.F |
129 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
./pkg/aim_v23/aim_dyn2aim.F |
145 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
./pkg/aim_v23/aim_dyn2aim.F |
56 |
AIM_DYN2AIM |
_RL Vsurf2(NGP), PSA(NGP), dpFac(NGP,NLEV) |
./pkg/aim_v23/phy_convmf.F |
51 |
CONVMF |
_RL dpFac(NGP,NLEV) |
./pkg/aim_v23/phy_convmf.F |
6 |
CONVMF |
SUBROUTINE CONVMF (PSA,dpFac,SE,QA,QSAT, |
./pkg/aim_v23/phy_convmf.F |
87 |
CONVMF |
FM0(J)=P0*DSIG(Ktmp)*dpFac(J,Ktmp)/(GG*TRCNV*3600. _d 0) |
./pkg/aim_v23/phy_driver.F |
120 |
PHY_DRIVER |
_RL dpFac(NGP,NLEV) |
./pkg/aim_v23/phy_driver.F |
142 |
PHY_DRIVER |
O TG1, QG1, SE, VsurfSq, PSG, dpFac, kGround, |
./pkg/aim_v23/phy_driver.F |
179 |
PHY_DRIVER |
CALL CONVMF (PSG,dpFac,SE,QG1,QSAT, |
./pkg/aim_v23/phy_driver.F |
195 |
PHY_DRIVER |
CALL LSCOND (PSG,dpFac,QG1,QSAT, |
./pkg/aim_v23/phy_driver.F |
203 |
PHY_DRIVER |
I PSG, dpFac, SE, ICLTOP, |
./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 |
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_lscond.F |
101 |
LSCOND |
DQLSC(J,K) = DQLSC(J,K)*dpFac(J,K) |
./pkg/aim_v23/phy_lscond.F |
102 |
LSCOND |
DTLSC(J,K) = DTLSC(J,K)*dpFac(J,K) |
./pkg/aim_v23/phy_lscond.F |
45 |
LSCOND |
_RL PSA(NGP), dpFac(NGP,NLEV), QA(NGP,NLEV), QSAT(NGP,NLEV) |
./pkg/aim_v23/phy_lscond.F |
6 |
LSCOND |
SUBROUTINE LSCOND (PSA,dpFac,QA,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 |
322 |
RADSW |
DELTAP=ZENIT(J)*DSIG(1)*dpFac(J,1) |
./pkg/aim_v23/phy_radiat.F |
331 |
RADSW |
DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K) |
./pkg/aim_v23/phy_radiat.F |
349 |
RADSW |
DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K) |
./pkg/aim_v23/phy_radiat.F |
355 |
RADSW |
DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K) |
./pkg/aim_v23/phy_radiat.F |
465 |
RADSW |
DELTAP=DSIG(1)*dpFac(J,1) |
./pkg/aim_v23/phy_radiat.F |
475 |
RADSW |
DELTAP=DSIG(K)*dpFac(J,K) |
./pkg/aim_v23/phy_snow_precip.F |
10 |
SNOW_PRECIP |
I PSA, dpFac, ThA, |
./pkg/aim_v23/phy_snow_precip.F |
59 |
SNOW_PRECIP |
_RL PSA(NGP), dpFac(NGP,NLEV), ThA(NGP,NLEV) |
./pkg/aim_v23/phy_vdifsc.F |
135 |
VDIFSC |
FSHCQ = DSIG(Ktmp)*dpFac(J,Ktmp)/(TRSHC*3600. _d 0) |
./pkg/aim_v23/phy_vdifsc.F |
55 |
VDIFSC |
_RL dpFac(NGP,NLEV) |
./pkg/aim_v23/phy_vdifsc.F |
6 |
VDIFSC |
SUBROUTINE VDIFSC (dpFac,SE,RH,QA,QSAT, |
./pkg/atm_phys/atm_phys_driver.F |
139 |
ATM_PHYS_DRIVER |
_RL dpFac(sNx,sNy) |
./pkg/atm_phys/atm_phys_driver.F |
419 |
ATM_PHYS_DRIVER |
dpFac(:,:) = ( pHalf3d(:,:,k+1) - pHalf3d(:,:,k) |
./pkg/atm_phys/atm_phys_driver.F |
421 |
ATM_PHYS_DRIVER |
atmPhys_dU(1:sNx,1:sNy,kc,bi,bj) = udt3d(:,:,k)*dpFac(:,:) |
./pkg/atm_phys/atm_phys_driver.F |
422 |
ATM_PHYS_DRIVER |
atmPhys_dV(1:sNx,1:sNy,kc,bi,bj) = vdt3d(:,:,k)*dpFac(:,:) |