| 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 |
139 |
THSICE_GET_BULKF |
flwNet_dwn = flwdwn(i,j,bi,bj) - flwup |
|
./pkg/thsice/thsice_get_bulkf.F |
74 |
THSICE_GET_BULKF |
_RL flwup ! upward LW at surface (W m-2) |
|
./pkg/thsice/thsice_get_exf.F |
134 |
THSICE_GET_EXF |
_RL flwup |
|
./pkg/thsice/thsice_get_exf.F |
264 |
THSICE_GET_EXF |
flwup = emiss*stefanBoltzmann*Ts2*Ts2 |
|
./pkg/thsice/thsice_get_exf.F |
268 |
THSICE_GET_EXF |
flwNet_dwn = emiss*lwdown(i,j,bi,bj) - flwup |
|
./pkg/bulk_force/BULKF_INT.h |
16 |
NO PROCEDURE |
_RL flwup(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 |
61 |
BULKF_AVE |
& +flwup(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 |
140 |
BULKF_FORCING |
flwupnet(i,j,bi,bj)=flwup(i,j,bi,bj)-flwdwn(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
149 |
BULKF_FORCING |
flwup(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
95 |
BULKF_FORCING |
flwup(i,j,bi,bj)= ocean_emissivity*SLRU(1) |