| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_radiat.F |
716 |
RADSET |
INTEGER JTEMP, JB |
|
./pkg/aim_v23/phy_radiat.F |
723 |
RADSET |
DO JTEMP=200,320 |
|
./pkg/aim_v23/phy_radiat.F |
724 |
RADSET |
FBAND(JTEMP,0)= EPSLW |
|
./pkg/aim_v23/phy_radiat.F |
725 |
RADSET |
FBAND(JTEMP,2)= 0.148 _d 0 - 3.0 _d -6 *(JTEMP-247)**2 |
|
./pkg/aim_v23/phy_radiat.F |
726 |
RADSET |
FBAND(JTEMP,3)=(0.375 _d 0 - 5.5 _d -6 *(JTEMP-282)**2)*EPS3 |
|
./pkg/aim_v23/phy_radiat.F |
727 |
RADSET |
FBAND(JTEMP,4)= 0.314 _d 0 + 1.0 _d -5 *(JTEMP-315)**2 |
|
./pkg/aim_v23/phy_radiat.F |
728 |
RADSET |
FBAND(JTEMP,1)= 1. _d 0 -(FBAND(JTEMP,0)+FBAND(JTEMP,2) |
|
./pkg/aim_v23/phy_radiat.F |
729 |
RADSET |
& +FBAND(JTEMP,3)+FBAND(JTEMP,4)) |
|
./pkg/aim_v23/phy_radiat.F |
733 |
RADSET |
DO JTEMP=lwTemp1,199 |
|
./pkg/aim_v23/phy_radiat.F |
734 |
RADSET |
FBAND(JTEMP,JB)=FBAND(200,JB) |
|
./pkg/aim_v23/phy_radiat.F |
736 |
RADSET |
DO JTEMP=321,lwTemp2 |
|
./pkg/aim_v23/phy_radiat.F |
737 |
RADSET |
FBAND(JTEMP,JB)=FBAND(320,JB) |