| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice.F |
137 |
SEAICE_BUDGET_ICE |
ALB(I,J)=SEAICE_dryIceAlb_south |
|
./pkg/seaice/seaice_budget_ice.F |
138 |
SEAICE_BUDGET_ICE |
IF(tsurfLoc(I,J).GT.TMELTP) ALB(I,J)=SEAICE_wetIceAlb_south |
|
./pkg/seaice/seaice_budget_ice.F |
142 |
SEAICE_BUDGET_ICE |
ALB(I,J)=SEAICE_dryIceAlb |
|
./pkg/seaice/seaice_budget_ice.F |
143 |
SEAICE_BUDGET_ICE |
IF(tsurfLoc(I,J).GT.TMELTP) ALB(I,J)=SEAICE_wetIceAlb |
|
./pkg/seaice/seaice_budget_ice.F |
150 |
SEAICE_BUDGET_ICE |
ALB(I,J)=ASNOW |
|
./pkg/seaice/seaice_budget_ice.F |
152 |
SEAICE_BUDGET_ICE |
ALB(I,J)=ALB(I,J) + (hSnwLoc(I,J)/HCUT)*(ASNOW-ALB(I,J)) |
|
./pkg/seaice/seaice_budget_ice.F |
153 |
SEAICE_BUDGET_ICE |
IF(ALB(I,J).GT.ASNOW) ALB(I,J)=ASNOW |
|
./pkg/seaice/seaice_budget_ice.F |
163 |
SEAICE_BUDGET_ICE |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ice.F |
168 |
SEAICE_BUDGET_ICE |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ice.F |
247 |
SEAICE_BUDGET_ICE |
SWHeatFlux(I,J)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ice.F |
78 |
SEAICE_BUDGET_ICE |
_RL ALB (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_budget_ice_if.F |
170 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_wetIceAlb_south |
|
./pkg/seaice/seaice_budget_ice_if.F |
172 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_wetSnowAlb_south |
|
./pkg/seaice/seaice_budget_ice_if.F |
176 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_dryIceAlb_south |
|
./pkg/seaice/seaice_budget_ice_if.F |
178 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_drySnowAlb_south |
|
./pkg/seaice/seaice_budget_ice_if.F |
184 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_wetIceAlb |
|
./pkg/seaice/seaice_budget_ice_if.F |
186 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_wetSnowAlb |
|
./pkg/seaice/seaice_budget_ice_if.F |
190 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_dryIceAlb |
|
./pkg/seaice/seaice_budget_ice_if.F |
192 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_drySnowAlb |
|
./pkg/seaice/seaice_budget_ice_if.F |
206 |
SEAICE_BUDGET_ICE_IF |
AbsorbedSWFlux(I,J) = -(ONE - ALB(I,J))* |
|
./pkg/seaice/seaice_budget_ice_if.F |
210 |
SEAICE_BUDGET_ICE_IF |
IcePenetSWFlux(I,J) = -(ONE - ALB(I,J))* |
|
./pkg/seaice/seaice_budget_ice_if.F |
327 |
SEAICE_BUDGET_ICE_IF |
^ IcePenetSWFluxFrac(I,J), ALB(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
89 |
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 |
128 |
SEAICE_BUDGET_OCEAN_IF |
ALB(I,J)=SEAICE_waterAlbedo |
|
./pkg/seaice/seaice_budget_ocean_if.F |
129 |
SEAICE_BUDGET_OCEAN_IF |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
138 |
SEAICE_BUDGET_OCEAN_IF |
SWHeatFlux (I,J)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
69 |
SEAICE_BUDGET_OCEAN_IF |
_RL ALB (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./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 |
363 |
RADSW |
FSFC(J,1)=FLUX(J,1)*(1.-ALB(J,1))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
364 |
RADSW |
FSFC(J,2)=FLUX(J,1)*(1.-ALB(J,2))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
365 |
RADSW |
FSFC(J,3)=FLUX(J,1)*(1.-ALB(J,3))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
368 |
RADSW |
FLUX(J,1)=FLUX(J,1)*ALB(J,0) |