| 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 |
138 |
THSICE_ALBEDO |
albedo = albsno + (albice-albsno)*EXP(-hs/hAlbSnow) |
|
./pkg/thsice/thsice_albedo.F |
150 |
THSICE_ALBEDO |
sAlbNIR(i,j) = albedo |
|
./pkg/thsice/thsice_albedo.F |
153 |
THSICE_ALBEDO |
IF (albedo.GT.1. _d 0 .OR. albedo.LT. .2 _d 0) THEN |
|
./pkg/thsice/thsice_albedo.F |
159 |
THSICE_ALBEDO |
& 'THSICE_ALBEDO: albedo=', albedo, age, hs, albsno |
|
./pkg/thsice/thsice_albedo.F |
163 |
THSICE_ALBEDO |
sAlb(i,j) = albedo |
|
./pkg/thsice/thsice_albedo.F |
73 |
THSICE_ALBEDO |
_RL albedo ! surface albedo |
|
./pkg/cheapaml/cheapaml.F |
63 |
CHEAPAML |
_RL 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 |