| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/com_physvar.h |
49 |
NO PROCEDURE |
COMMON /PHYGR3/ TS, TSKIN, T0, Q0, CLOUDC, CLTOP |
|
./pkg/aim_v23/com_physvar.h |
51 |
NO PROCEDURE |
_RL TS (NGP,MAX_NO_THREADS) |
|
./pkg/aim_v23/phy_driver.F |
269 |
PHY_DRIVER |
CALL RADLW (-1,TG1,TS(1,myThid),ST4S, |
|
./pkg/aim_v23/phy_driver.F |
297 |
PHY_DRIVER |
O TS(1,myThid), TSKIN(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
325 |
PHY_DRIVER |
O TS(1,myThid), TSKIN(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
351 |
PHY_DRIVER |
O ST4S, TS(1,myThid), TSKIN(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
367 |
PHY_DRIVER |
CALL RADLW (1,TG1,TS(1,myThid),ST4S, |
|
./pkg/aim_v23/phy_driver.F |
401 |
PHY_DRIVER |
CALL RADLW (-1,TG1,TS(1,myThid),ST4S, |
|
./pkg/aim_v23/phy_driver.F |
408 |
PHY_DRIVER |
CALL RADLW (1,TG1,TS(1,myThid),ST4S, |
|
./pkg/aim_v23/phy_radiat.F |
497 |
RADLW |
SUBROUTINE RADLW (IMODE,TA,TS,ST4S, |
|
./pkg/aim_v23/phy_radiat.F |
547 |
RADLW |
_RL TA(NGP,NLEV), TS(NGP), ST4S(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
669 |
RADLW |
ST4S(J)=TS(J)*TS(J) |
|
./pkg/aim_v23/phy_radiat.F |
679 |
RADLW |
FTOP(J)=FTOP(J)+FBAND(NINT(TS(J)),0)*ST4S(J) |
|
./pkg/aim_v23/phy_radiat.F |
684 |
RADLW |
FLUX(J,JB)=FBAND(NINT(TS(J)),JB)*ST4S(J) |