| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_radiat.F |
766 |
RADSET |
INTEGER JTEMP, JB |
|
./pkg/aim_v23/phy_radiat.F |
773 |
RADSET |
DO JTEMP=200,320 |
|
./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 |
783 |
RADSET |
DO JTEMP=lwTemp1,199 |
|
./pkg/aim_v23/phy_radiat.F |
784 |
RADSET |
FBAND(JTEMP,JB)=FBAND(200,JB) |
|
./pkg/aim_v23/phy_radiat.F |
786 |
RADSET |
DO JTEMP=321,lwTemp2 |
|
./pkg/aim_v23/phy_radiat.F |
787 |
RADSET |
FBAND(JTEMP,JB)=FBAND(320,JB) |