| File |
Line number |
Procedure |
Code |
|
./pkg/aim/phy_radiat.F |
128 |
RADSW |
_RL FSOL(NGP), OZONE(NGP), ALB(NGP), TAU(NGP,NLEV) |
|
./pkg/aim/phy_radiat.F |
255 |
RADSW |
FREFL(J)=ALB(J)*FLUX(J) |
|
./pkg/aim/phy_radiat.F |
84 |
RADSW |
* FSOL,OZONE,ALB,TAU, |
|
./pkg/aim_v23/phy_radiat.F |
108 |
RADSW |
SUBROUTINE RADSW (PSA,dpFac,QA,RH,ALB, |
|
./pkg/aim_v23/phy_radiat.F |
153 |
RADSW |
_RL ALB(NGP,0:3) |
|
./pkg/aim_v23/phy_radiat.F |
347 |
RADSW |
FSFC(J,1)=FLUX(J,1)*(1.-ALB(J,1))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
348 |
RADSW |
FSFC(J,2)=FLUX(J,1)*(1.-ALB(J,2))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
349 |
RADSW |
FSFC(J,3)=FLUX(J,1)*(1.-ALB(J,3))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
352 |
RADSW |
FLUX(J,1)=FLUX(J,1)*ALB(J,0) |
|
./pkg/seaice/budget.F |
109 |
BUDGET |
ALB(I,J)=SEAICE_waterAlbedo |
|
./pkg/seaice/budget.F |
110 |
BUDGET |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
119 |
BUDGET |
QSWO(I,J,bi,bj)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
139 |
BUDGET |
ALB(I,J)=SEAICE_dryIceAlb |
|
./pkg/seaice/budget.F |
140 |
BUDGET |
IF(TICE(I,J,bi,bj).GT.TMELTP) ALB(I,J)=SEAICE_wetIceAlb |
|
./pkg/seaice/budget.F |
144 |
BUDGET |
ALB(I,J)=ASNOW |
|
./pkg/seaice/budget.F |
146 |
BUDGET |
ALB(I,J)=ALB(I,J)+(HSNOW(I,J,bi,bj)/HCUT)*(ASNOW-ALB(I,J)) |
|
./pkg/seaice/budget.F |
147 |
BUDGET |
IF(ALB(I,J).GT.ASNOW) ALB(I,J)=ASNOW |
|
./pkg/seaice/budget.F |
156 |
BUDGET |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
161 |
BUDGET |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
227 |
BUDGET |
QSWI(I,J,bi,bj)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
51 |
BUDGET |
_RL ALB (1-OLx:sNx+OLx, 1-OLy:sNy+OLy) |