| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_solve4temp.F |
144 |
SEAICE_SOLVE4TEMP |
_RL ALB (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_solve4temp.F |
298 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = ALB_SNOW(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
300 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = ALB_ICE(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
303 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = MIN( ALB_ICE(I,J) + HSNOW_ACTUAL(I,J)*recip_HCUT |
|
./pkg/seaice/seaice_solve4temp.F |
317 |
SEAICE_SOLVE4TEMP |
IcePenetSW(I,J) = -(1.0 _d 0 - ALB(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
320 |
SEAICE_SOLVE4TEMP |
absorbedSW(I,J) = (1.0 _d 0 - ALB(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
346 |
SEAICE_SOLVE4TEMP |
& HSNOW_ACTUAL(I,J), ALB(I,J) |
|
./pkg/aim_v23/phy_radiat.F |
158 |
RADSW |
SUBROUTINE RADSW (PSA,dpFac,QA,RH,ALB, |
|
./pkg/aim_v23/phy_radiat.F |
200 |
RADSW |
_RL ALB(NGP,0:3) |
|
./pkg/aim_v23/phy_radiat.F |
410 |
RADSW |
FSFC(J,1)=FLUX(J,1)*(1.-ALB(J,1))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
411 |
RADSW |
FSFC(J,2)=FLUX(J,1)*(1.-ALB(J,2))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
412 |
RADSW |
FSFC(J,3)=FLUX(J,1)*(1.-ALB(J,3))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
415 |
RADSW |
FLUX(J,1)=FLUX(J,1)*ALB(J,0) |