File |
Line number |
Procedure |
Code |
./pkg/aim/com_physvar.h |
14 |
NO PROCEDURE |
COMMON /PHYGR1/ UG1, VG1, TG1, QG1, PHIG1, PSLG1, Vsurfsq |
./pkg/aim/com_physvar.h |
18 |
NO PROCEDURE |
_RL QG1(NGP,NLEV,MAX_NO_THREADS) |
./pkg/aim/aim_do_atmos_physics.F |
154 |
AIM_DO_PHYSICS |
QG1(I2,Katm,myThid) = salt(I,J,K,bi,bj) |
./pkg/aim/aim_do_atmos_physics.F |
156 |
AIM_DO_PHYSICS |
QG1(I2,Katm,myThid) = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
./pkg/aim/phy_driver.F |
108 |
PDRIVER |
& SIG(K),QG1(1,K,myThid), |
./pkg/aim/phy_driver.F |
120 |
PDRIVER |
QG1(J,K,myThid)=QG1(J,K,myThid)*Phymask(J,K) |
./pkg/aim/phy_driver.F |
132 |
PDRIVER |
& QG1(1,1,myThid),QSAT(1,1,myThid), |
./pkg/aim/phy_driver.F |
147 |
PDRIVER |
CALL LSCOND (PSG(1,myThid),QG1(1,1,myThid),QSAT(1,1,myThid), |
./pkg/aim/phy_driver.F |
163 |
PDRIVER |
CALL RADSW (PSG(1,myThid),QG1(1,1,myThid),RH(1,1,myThid), |
./pkg/aim/phy_driver.F |
194 |
PDRIVER |
& TG1(1,1,myThid),QG1(1,1,myThid), |
./pkg/aim/phy_driver.F |
250 |
PDRIVER |
& QG1(1,1,myThid), QSAT(1,1,myThid), |
./pkg/aim_v23/com_physvar.h |
18 |
NO PROCEDURE |
_RL QG1 (NGP,NLEV) |
./pkg/aim_v23/phy_driver.F |
104 |
PHY_DRIVER |
O TG1, QG1, SE, VsurfSq, PSG, dpFac, kGround, |
./pkg/aim_v23/phy_driver.F |
130 |
PHY_DRIVER |
CALL SHTORH (1,NGP,TG1(1,K),PSG_1,SIG(K),QG1(1,K), |
./pkg/aim_v23/phy_driver.F |
141 |
PHY_DRIVER |
CALL CONVMF (PSG,dpFac,SE,QG1,QSAT, |
./pkg/aim_v23/phy_driver.F |
157 |
PHY_DRIVER |
CALL LSCOND (PSG,dpFac,QG1,QSAT, |
./pkg/aim_v23/phy_driver.F |
202 |
PHY_DRIVER |
CALL RADSW (PSG,dpFac,QG1,RH(1,1,myThid),ALB1(1,0,myThid), |
./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 |
334 |
PHY_DRIVER |
CALL RADSW (PSG,dpFac,QG1,RH(1,1,myThid),ALB1(1,0,myThid), |
./pkg/aim_v23/phy_driver.F |
371 |
PHY_DRIVER |
CALL VDIFSC (dpFac, SE, RH(1,1,myThid), QG1, QSAT, |