| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/com_radcon.h |
41 |
NO PROCEDURE |
COMMON /RADFIX/ FBAND |
|
./pkg/aim_v23/com_radcon.h |
42 |
NO PROCEDURE |
_RL FBAND(lwTemp1:lwTemp2,0:NBAND) |
|
./pkg/aim_v23/phy_radiat.F |
631 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
649 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
684 |
RADLW |
FTOP(J)=FTOP(J)+FBAND(NINT(TS(J)),0)*ST4S(J) |
|
./pkg/aim_v23/phy_radiat.F |
689 |
RADLW |
FLUX(J,JB)=FBAND(NINT(TS(J)),JB)*ST4S(J) |
|
./pkg/aim_v23/phy_radiat.F |
700 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
713 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
774 |
RADSET |
FBAND(JTEMP,0)= EPSLW |
|
./pkg/aim_v23/phy_radiat.F |
775 |
RADSET |
FBAND(JTEMP,2)= 0.148 _d 0 - 3.0 _d -6 *(JTEMP-247)**2 |
|
./pkg/aim_v23/phy_radiat.F |
776 |
RADSET |
FBAND(JTEMP,3)=(0.375 _d 0 - 5.5 _d -6 *(JTEMP-282)**2)*EPS3 |
|
./pkg/aim_v23/phy_radiat.F |
777 |
RADSET |
FBAND(JTEMP,4)= 0.314 _d 0 + 1.0 _d -5 *(JTEMP-315)**2 |
|
./pkg/aim_v23/phy_radiat.F |
778 |
RADSET |
FBAND(JTEMP,1)= 1. _d 0 -(FBAND(JTEMP,0)+FBAND(JTEMP,2) |
|
./pkg/aim_v23/phy_radiat.F |
779 |
RADSET |
& +FBAND(JTEMP,3)+FBAND(JTEMP,4)) |
|
./pkg/aim_v23/phy_radiat.F |
784 |
RADSET |
FBAND(JTEMP,JB)=FBAND(200,JB) |
|
./pkg/aim_v23/phy_radiat.F |
787 |
RADSET |
FBAND(JTEMP,JB)=FBAND(320,JB) |