| File |
Line number |
Procedure |
Code |
|
./pkg/aim/com_physvar.h |
102 |
NO PROCEDURE |
_RL ST4S (NGP,MAX_NO_THREADS) |
|
./pkg/aim/com_physvar.h |
86 |
NO PROCEDURE |
& SLR_DOWN, ST4S, SPEED0, DRAG |
|
./pkg/aim/phy_radiat.F |
372 |
RADLW |
SUBROUTINE RADLW (IMODE,TA,TS,ST4S, |
|
./pkg/aim/phy_radiat.F |
414 |
RADLW |
_RL TA(NGP,NLEV), TS(NGP), ST4S(NGP), |
|
./pkg/aim/phy_radiat.F |
531 |
RADLW |
ST4S(J)=TS(J)*TS(J) |
|
./pkg/aim/phy_radiat.F |
532 |
RADLW |
ST4S(J)=SBC*ST4S(J)*ST4S(J) |
|
./pkg/aim/phy_radiat.F |
570 |
RADLW |
FSFC(J)=ST4S(J)-FLUX(J) |
|
./pkg/aim/phy_radiat.F |
572 |
RADLW |
FTOP(J)=EPSLW*ST4S(J) |
|
./pkg/aim/phy_radiat.F |
573 |
RADLW |
FLUX(J)=ST4S(J)-FTOP(J) |
|
./pkg/aim/phy_driver.F |
171 |
PDRIVER |
CALL RADLW (1,TG1(1,1,myThid),TS(1,myThid),ST4S(1,myThid), |
|
./pkg/aim_v23/phy_radiat.F |
414 |
RADLW |
SUBROUTINE RADLW (IMODE,TA,TS,ST4S, |
|
./pkg/aim_v23/phy_radiat.F |
464 |
RADLW |
_RL TA(NGP,NLEV), TS(NGP), ST4S(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
586 |
RADLW |
ST4S(J)=TS(J)*TS(J) |
|
./pkg/aim_v23/phy_radiat.F |
587 |
RADLW |
ST4S(J)=SBC*ST4S(J)*ST4S(J) |
|
./pkg/aim_v23/phy_radiat.F |
588 |
RADLW |
ST4S(J)=EMISFC*ST4S(J) |
|
./pkg/aim_v23/phy_radiat.F |
595 |
RADLW |
FSFC(J)=ST4S(J)-FSFC(J) |
|
./pkg/aim_v23/phy_radiat.F |
596 |
RADLW |
FTOP(J)=FTOP(J)+FBAND(NINT(TS(J)),0)*ST4S(J) |
|
./pkg/aim_v23/phy_radiat.F |
601 |
RADLW |
FLUX(J,JB)=FBAND(NINT(TS(J)),JB)*ST4S(J) |
|
./pkg/aim_v23/phy_driver.F |
225 |
PHY_DRIVER |
CALL RADLW (-1,TG1,TS(1,myThid),ST4S, |
|
./pkg/aim_v23/phy_driver.F |
307 |
PHY_DRIVER |
O ST4S, TS(1,myThid), TSKIN(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
316 |
PHY_DRIVER |
CALL RADLW (1,TG1,TS(1,myThid),ST4S, |
|
./pkg/aim_v23/phy_driver.F |
343 |
PHY_DRIVER |
CALL RADLW (-1,TG1,TS(1,myThid),ST4S, |
|
./pkg/aim_v23/phy_driver.F |
350 |
PHY_DRIVER |
CALL RADLW (1,TG1,TS(1,myThid),ST4S, |
|
./pkg/aim_v23/phy_driver.F |
85 |
PHY_DRIVER |
_RL ST4S(NGP) |