| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
204 |
NO PROCEDURE |
COMMON /exfl_turb_r/ hs, hl |
|
./pkg/exf/EXF_FIELDS.h |
206 |
NO PROCEDURE |
_RL hl (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_bulkformulae.F |
491 |
EXF_BULKFORMULAE |
hl(i,j,bi,bj) = flamb*tau(i,j)*qstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
517 |
EXF_BULKFORMULAE |
hl (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_diagnostics_fill.F |
48 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(hl , 'EXFhl ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getforcing.F |
214 |
EXF_GETFORCING |
& - hl(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
54 |
EXF_INIT |
hl(i,j,bi,bj) = 0. |
|
./pkg/seaice/seaice_budget_ocean.F |
134 |
SEAICE_BUDGET_OCEAN |
hl(I,J,bi,bj) = D1W*UG(I,J)*(AQH(I,J,bi,bj)-ssq) |
|
./pkg/seaice/seaice_budget_ocean.F |
138 |
SEAICE_BUDGET_OCEAN |
& - hs(I,J,bi,bj) - hl(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
141 |
SEAICE_BUDGET_OCEAN |
evap(i,j,bi,bj) = -hl(I,J,bi,bj) |