| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
502 |
SWRIO |
call PASTE ( tstrip,albedo,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
514 |
SWRIO |
if( albedo(i,j).ne.undef ) then |
|
./pkg/fizhi/fizhi_swrad.F |
515 |
SWRIO |
tmpdiag(i,j) = albedo(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
65 |
SWRIO |
_RL albedo(im,jm) |
|
./pkg/thsice/thsice_albedo.F |
141 |
THSICE_ALBEDO |
albedo = albsno + (albice-albsno)*EXP(-hs/hAlbSnow) |
|
./pkg/thsice/thsice_albedo.F |
154 |
THSICE_ALBEDO |
sAlbNIR(i,j) = albedo |
|
./pkg/thsice/thsice_albedo.F |
157 |
THSICE_ALBEDO |
IF (albedo.GT.1. _d 0 .OR. albedo.LT. .2 _d 0) THEN |
|
./pkg/thsice/thsice_albedo.F |
164 |
THSICE_ALBEDO |
sAlb(i,j) = albedo |
|
./pkg/thsice/thsice_albedo.F |
73 |
THSICE_ALBEDO |
_RL albedo ! surface albedo |
|
./pkg/bling/bling_light.F |
104 |
BLING_LIGHT |
albedo = 0.6 _d 0 !planetary albedo |
|
./pkg/bling/bling_light.F |
138 |
BLING_LIGHT |
fluxi = solar*(1. _d 0-albedo)*cosz*frac*parfrac |
|
./pkg/bling/bling_light.F |
68 |
BLING_LIGHT |
_RL solar, albedo |
|
./pkg/dic/insol.F |
40 |
INSOL |
_RL solar, albedo |
|
./pkg/dic/insol.F |
48 |
INSOL |
albedo= 0.6 _d 0 !planetary albedo |
|
./pkg/dic/insol.F |
82 |
INSOL |
fluxi = solar*(1. _d 0-albedo)*cosz*frac*parfrac |