| 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 |
20 |
NO PROCEDURE |
& Tr,qr,uwind,vwind,solar, |
|
./pkg/cheapaml/cheapaml.F |
351 |
CHEAPAML |
xflu=(-solar(i,j,bi,bj)+xalw+flha)*xef*hfacC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
354 |
CHEAPAML |
xfld=(-solar(i,j,bi,bj)-xalw+xolw+fsha+flha) |
|
./pkg/cheapaml/cheapaml.F |
364 |
CHEAPAML |
Qnet(i,j,bi,bj)=(-solar(i,j,bi,bj)-xalw+xolw+fsha+flha) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
119 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RS(solar, mythid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
126 |
CHEAPAML_FIELDS_LOAD |
local=solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
277 |
CHEAPAML_FIELDS_LOAD |
solar(i,j,bi,bj) = bWght*solar0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
289 |
CHEAPAML_FIELDS_LOAD |
CALL READ_FLD_XY_RS( SolarFile,solar,' ',0,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
304 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RS(solar, mythid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
313 |
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 |