| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_get_bulkf.F |
127 |
THSICE_GET_BULKF |
O flwup, flh, fsh, dFlxdT(i,j), ust, vst, |
|
./pkg/thsice/thsice_get_bulkf.F |
134 |
THSICE_GET_BULKF |
O flwup, flh, fsh, dFlxdT(i,j), ust, vst, |
|
./pkg/thsice/thsice_get_bulkf.F |
140 |
THSICE_GET_BULKF |
flxExcSw(i,j) = flwNet_dwn + fsh + flh |
|
./pkg/thsice/thsice_get_bulkf.F |
77 |
THSICE_GET_BULKF |
_RL flh ! surface downward latent heat (W m-2) |
|
./pkg/bulk_force/BULKF_INT.h |
14 |
NO PROCEDURE |
_RL flh(1-olx:snx+olx,1-oly:sny+oly,nSx,nSy) |
|
./pkg/bulk_force/BULKF_INT.h |
9 |
NO PROCEDURE |
& evap, savssq, fsh, flh, fswnet, flwup, flwupnet, |
|
./pkg/bulk_force/bulkf_ave.F |
55 |
BULKF_AVE |
& +flh(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_forcing.F |
112 |
BULKF_FORCING |
O flwup(i,j,bi,bj), flh(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
128 |
BULKF_FORCING |
O flwup(i,j,bi,bj), flh(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
148 |
BULKF_FORCING |
flh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
180 |
BULKF_FORCING |
hfl = hfl + flh(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
98 |
BULKF_FORCING |
flh(i,j,bi,bj) = -Lvap*EVPloc(1) |