| File |
Line number |
Procedure |
Code |
|
./pkg/dic/insol.F |
35 |
INSOL |
_RL solar, albedo, par |
|
./pkg/dic/insol.F |
44 |
INSOL |
albedo = 0.6 !planetary albedo |
|
./pkg/dic/insol.F |
69 |
INSOL |
fluxi = solar*(1.0-albedo)*cosz*frac*par |
|
./pkg/bulk_force/bulkf_forcing.F |
121 |
BULKF_FORCING |
O albedo, |
|
./pkg/bulk_force/bulkf_forcing.F |
124 |
BULKF_FORCING |
albedo= 0.1 _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
127 |
BULKF_FORCING |
albedo= 0.1 _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
129 |
BULKF_FORCING |
fswnet(i,j,bi,bj)=solar(i,j,bi,bj)*(1. _d 0-albedo) |
|
./pkg/bulk_force/bulkf_forcing.F |
67 |
BULKF_FORCING |
_RL albedo |
|
./pkg/thsice/thsice_albedo.F |
11 |
THSICE_ALBEDO |
O albedo, |
|
./pkg/thsice/thsice_albedo.F |
35 |
THSICE_ALBEDO |
_RL albedo ! surface albedo |
|
./pkg/thsice/thsice_albedo.F |
74 |
THSICE_ALBEDO |
albedo = albsno + (albice-albsno)*exp(-hs/hAlbSnow) |
|
./pkg/thsice/thsice_albedo.F |
76 |
THSICE_ALBEDO |
if (albedo.gt.1. _d 0 .or. albedo.lt. .2 _d 0) then |
|
./pkg/thsice/thsice_albedo.F |
77 |
THSICE_ALBEDO |
print*,'QQ - albedo problem', albedo, age, hs, albsno |
|
./pkg/thsice/thsice_step_fwd.F |
131 |
THSICE_STEP_FWD |
O albedo, |
|
./pkg/thsice/thsice_step_fwd.F |
133 |
THSICE_STEP_FWD |
flxSW(i,j) = flxSW(i,j)*(1. _d 0 - albedo) |
|
./pkg/thsice/thsice_step_fwd.F |
153 |
THSICE_STEP_FWD |
siceAlb(i,j,bi,bj) = icFrac*albedo |
|
./pkg/thsice/thsice_step_fwd.F |
79 |
THSICE_STEP_FWD |
_RL albedo |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
495 |
SWRIO |
call PASTE ( tstrip,albedo,istrip,im*jm,1,nn ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
507 |
SWRIO |
if( albedo(i,j).ne.undef ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
508 |
SWRIO |
tmpdiag(i,j) = albedo(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
65 |
SWRIO |
_RL albedo(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
494 |
SWRIO |
call PASTE ( tstrip,albedo,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
506 |
SWRIO |
if( albedo(i,j).ne.undef ) then |
|
./pkg/fizhi/fizhi_swrad.F |
507 |
SWRIO |
tmpdiag(i,j) = albedo(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
65 |
SWRIO |
_RL albedo(im,jm) |