| 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 |
543 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
561 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./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_radiat.F |
612 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
625 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
686 |
RADSET |
FBAND(JTEMP,0)= EPSLW |
|
./pkg/aim_v23/phy_radiat.F |
687 |
RADSET |
FBAND(JTEMP,2)= 0.148 _d 0 - 3.0 _d -6 *(JTEMP-247)**2 |
|
./pkg/aim_v23/phy_radiat.F |
688 |
RADSET |
FBAND(JTEMP,3)=(0.375 _d 0 - 5.5 _d -6 *(JTEMP-282)**2)*EPS3 |
|
./pkg/aim_v23/phy_radiat.F |
689 |
RADSET |
FBAND(JTEMP,4)= 0.314 _d 0 + 1.0 _d -5 *(JTEMP-315)**2 |
|
./pkg/aim_v23/phy_radiat.F |
690 |
RADSET |
FBAND(JTEMP,1)= 1. _d 0 -(FBAND(JTEMP,0)+FBAND(JTEMP,2) |
|
./pkg/aim_v23/phy_radiat.F |
691 |
RADSET |
& +FBAND(JTEMP,3)+FBAND(JTEMP,4)) |
|
./pkg/aim_v23/phy_radiat.F |
696 |
RADSET |
FBAND(JTEMP,JB)=FBAND(200,JB) |
|
./pkg/aim_v23/phy_radiat.F |
699 |
RADSET |
FBAND(JTEMP,JB)=FBAND(320,JB) |