| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
190 |
NO PROCEDURE |
COMMON /exf_atm_temp_r/ atemp, aqh, hs, hl, lwflux, |
|
./pkg/exf/EXF_FIELDS.h |
195 |
NO PROCEDURE |
_RL hl (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_bulkformulae.F |
493 |
EXF_BULKFORMULAE |
hl(i,j,bi,bj) = flamb*tau(i,j)*qstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
519 |
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_getffields.F |
257 |
EXF_GETFFIELDS |
U hl, hl0, hl1, |
|
./pkg/exf/exf_getforcing.F |
213 |
EXF_GETFORCING |
& - hl(i,j,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
217 |
EXF_INIT_VARIA |
O hl, hl0, hl1, |
|
./pkg/exf/exf_init_varia.F |
55 |
EXF_INIT_VARIA |
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) |