| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_get_precip.F |
68 |
THSICE_GET_PRECIP |
flxSW (i,j) = solar(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
142 |
BULKF_FORCING |
fswnet(i,j,bi,bj) = solar(i,j,bi,bj) |
|
./pkg/cheapaml/CHEAPAML.h |
23 |
NO PROCEDURE |
& uwind, vwind, solar, |
|
./pkg/cheapaml/cheapaml.F |
354 |
CHEAPAML |
xflu=(-solar(i,j,bi,bj)+xalw+flha)*xef*hfacC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
357 |
CHEAPAML |
xfld=(-solar(i,j,bi,bj)-xalw+xolw+fsha+flha) |
|
./pkg/cheapaml/cheapaml.F |
367 |
CHEAPAML |
Qnet(i,j,bi,bj)=(-solar(i,j,bi,bj)-xalw+xolw+fsha+flha) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
125 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RL(solar, mythid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
132 |
CHEAPAML_FIELDS_LOAD |
local=solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
283 |
CHEAPAML_FIELDS_LOAD |
solar(i,j,bi,bj) = bWght*solar0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
295 |
CHEAPAML_FIELDS_LOAD |
CALL READ_FLD_XY_RL( SolarFile, ' ', solar, 0, myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
310 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RL(solar, mythid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
319 |
CHEAPAML_FIELDS_LOAD |
local=solar(i,j,bi,bj) |
|
./pkg/dic/insol.F |
40 |
INSOL |
_RL solar, albedo |
|
./pkg/dic/insol.F |
47 |
INSOL |
solar = 1360. _d 0 !solar constant |
|
./pkg/dic/insol.F |
82 |
INSOL |
fluxi = solar*(1. _d 0-albedo)*cosz*frac*parfrac |