| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_radiat.F |
678 |
RADSET |
INTEGER JTEMP, JB |
|
./pkg/aim_v23/phy_radiat.F |
685 |
RADSET |
DO JTEMP=200,320 |
|
./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 |
695 |
RADSET |
DO JTEMP=lwTemp1,199 |
|
./pkg/aim_v23/phy_radiat.F |
696 |
RADSET |
FBAND(JTEMP,JB)=FBAND(200,JB) |
|
./pkg/aim_v23/phy_radiat.F |
698 |
RADSET |
DO JTEMP=321,lwTemp2 |
|
./pkg/aim_v23/phy_radiat.F |
699 |
RADSET |
FBAND(JTEMP,JB)=FBAND(320,JB) |