| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_get_precip.F |
80 |
THSICE_GET_PRECIP |
flxSW (i,j) = solar(i,j,bi,bj) |
|
./pkg/bling/bling_light.F |
103 |
BLING_LIGHT |
solar = 1360. _d 0 !solar constant |
|
./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/bulk_force/bulkf_forcing.F |
142 |
BULKF_FORCING |
fswnet(i,j,bi,bj) = solar(i,j,bi,bj) |
|
./pkg/cheapaml/CHEAPAML.h |
30 |
NO PROCEDURE |
& uWind, vWind, solar, |
|
./pkg/cheapaml/cheapaml.F |
350 |
CHEAPAML |
I solar(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
368 |
CHEAPAML |
& -solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
378 |
CHEAPAML |
& + opFrac*solar(i,j,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
424 |
CHEAPAML |
xflu = ( -solar(i,j,bi,bj) + xalwu + flha(i,j) |
|
./pkg/cheapaml/cheapaml.F |
427 |
CHEAPAML |
xfld = ( -solar(i,j,bi,bj) - xalwd + xolw(i,j) |
|
./pkg/cheapaml/cheapaml.F |
458 |
CHEAPAML |
& -solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
466 |
CHEAPAML |
Qsw(i,j,bi,bj) = -solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
194 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RL( solar, myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
395 |
CHEAPAML_FIELDS_LOAD |
solar(i,j,bi,bj) = bWght*solar0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
449 |
CHEAPAML_FIELDS_LOAD |
CALL READ_FLD_XY_RL( SolarFile,' ',solar,0,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
463 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RL( solar, myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
472 |
CHEAPAML_FIELDS_LOAD |
local = solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
69 |
CHEAPAML_INIT_VARIA |
solar (i,j,bi,bj) = 0. _d 0 |
|
./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 |