| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_readparms.F |
200 |
AIM_READPARMS |
& EPSSW, EPSLW, EMISFC, |
|
./pkg/aim_v23/aim_readparms.F |
510 |
AIM_READPARMS |
CALL WRITE_0D_RL( EMISFC,INDEX_NONE,'AIM_RAD: EMISFC =', |
|
./pkg/aim_v23/com_radcon.h |
31 |
NO PROCEDURE |
& EPSSW, EPSLW, EMISFC, |
|
./pkg/aim_v23/com_radcon.h |
35 |
NO PROCEDURE |
_RL EPSSW, EPSLW, EMISFC |
|
./pkg/aim_v23/phy_const.h |
46 |
NO PROCEDURE |
EMISFC = 0.98 _d 0 |
|
./pkg/aim_v23/phy_driver.F |
291 |
PHY_DRIVER |
I PSG, FMASK1(1,1,myThid), EMISFC, |
|
./pkg/aim_v23/phy_driver.F |
319 |
PHY_DRIVER |
I PSG, FMASK1(1,3,myThid), EMISFC, |
|
./pkg/aim_v23/phy_driver.F |
345 |
PHY_DRIVER |
I FMASK1(1,1,myThid), EMISFC, |
|
./pkg/aim_v23/phy_radiat.F |
570 |
RADLW |
REFSFC=1.-EMISFC |
|
./pkg/aim_v23/phy_radiat.F |
654 |
RADLW |
FSFC(J)=FSFC(J)+EMISFC*FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
671 |
RADLW |
ST4S(J)=EMISFC*ST4S(J) |