| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
171 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_wetIceAlb_south |
|
./pkg/seaice/seaice_budget_ice_if.F |
173 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_wetSnowAlb_south |
|
./pkg/seaice/seaice_budget_ice_if.F |
177 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_dryIceAlb_south |
|
./pkg/seaice/seaice_budget_ice_if.F |
179 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_drySnowAlb_south |
|
./pkg/seaice/seaice_budget_ice_if.F |
185 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_wetIceAlb |
|
./pkg/seaice/seaice_budget_ice_if.F |
187 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_wetSnowAlb |
|
./pkg/seaice/seaice_budget_ice_if.F |
191 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_dryIceAlb |
|
./pkg/seaice/seaice_budget_ice_if.F |
193 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_drySnowAlb |
|
./pkg/seaice/seaice_budget_ice_if.F |
207 |
SEAICE_BUDGET_ICE_IF |
AbsorbedSWFlux(I,J) = -(ONE - ALB(I,J))* |
|
./pkg/seaice/seaice_budget_ice_if.F |
211 |
SEAICE_BUDGET_ICE_IF |
IcePenetSWFlux(I,J) = -(ONE - ALB(I,J))* |
|
./pkg/seaice/seaice_budget_ice_if.F |
328 |
SEAICE_BUDGET_ICE_IF |
^ IcePenetSWFluxFrac(I,J), ALB(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
90 |
SEAICE_BUDGET_ICE_IF |
_RL ALB (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_budget_ocean.F |
105 |
SEAICE_BUDGET_OCEAN |
ALB(I,J)=SEAICE_waterAlbedo |
|
./pkg/seaice/seaice_budget_ocean.F |
107 |
SEAICE_BUDGET_OCEAN |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
116 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
61 |
SEAICE_BUDGET_OCEAN |
_RL ALB (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
130 |
SEAICE_BUDGET_OCEAN_IF |
ALB(I,J)=SEAICE_waterAlbedo |
|
./pkg/seaice/seaice_budget_ocean_if.F |
131 |
SEAICE_BUDGET_OCEAN_IF |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
140 |
SEAICE_BUDGET_OCEAN_IF |
SWHeatFlux (I,J)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
71 |
SEAICE_BUDGET_OCEAN_IF |
_RL ALB (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_solve4temp.F |
288 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = ALB_SNOW(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
293 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = MIN(ALB_ICE(I,J) + HSNOW_ACTUAL(I,J)/HCUT* |
|
./pkg/seaice/seaice_solve4temp.F |
300 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = ALB_SNOW(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
302 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = ALB_ICE(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
312 |
SEAICE_SOLVE4TEMP |
A1(I,J)=(1.0 _d 0 - ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
317 |
SEAICE_SOLVE4TEMP |
A1(I,J)=(1.0 _d 0 - ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
342 |
SEAICE_SOLVE4TEMP |
AbsorbedSWFlux(I,J) = -(1.0 _d 0 - ALB(I,J))* |
|
./pkg/seaice/seaice_solve4temp.F |
348 |
SEAICE_SOLVE4TEMP |
IcePenetSWFlux(I,J) = -(1.0 _d 0 - ALB(I,J))* |
|
./pkg/seaice/seaice_solve4temp.F |
391 |
SEAICE_SOLVE4TEMP |
& HSNOW_ACTUAL(I,J), ALB(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
547 |
SEAICE_SOLVE4TEMP |
IcePenetSWFlux(I,J)=-(1.0 _d 0 -ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
99 |
SEAICE_SOLVE4TEMP |
_RL ALB (1:sNx,1:sNy) |
|
./pkg/aim_v23/phy_radiat.F |
146 |
RADSW |
SUBROUTINE RADSW (PSA,dpFac,QA,RH,ALB, |
|
./pkg/aim_v23/phy_radiat.F |
192 |
RADSW |
_RL ALB(NGP,0:3) |
|
./pkg/aim_v23/phy_radiat.F |
403 |
RADSW |
FSFC(J,1)=FLUX(J,1)*(1.-ALB(J,1))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
404 |
RADSW |
FSFC(J,2)=FLUX(J,1)*(1.-ALB(J,2))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
405 |
RADSW |
FSFC(J,3)=FLUX(J,1)*(1.-ALB(J,3))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
408 |
RADSW |
FLUX(J,1)=FLUX(J,1)*ALB(J,0) |