| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_averagesfields.F |
671 |
COST_AVERAGESFIELDS |
hfluxbar(i,j,bi,bj)=hflux(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
683 |
COST_AVERAGESFIELDS |
& hflux(i,j,bi,bj)+swflux(i,j,bi,bj))/ |
|
./pkg/ecco/cost_averagesfields.F |
708 |
COST_AVERAGESFIELDS |
& swflux(i,j,bi,bj)+hflux(i,j,bi,bj) |
|
./pkg/exf/exf_monitor.F |
44 |
EXF_MONITOR |
CALL MON_PRINTSTATS_RL(1,hflux,'_hflux', |
|
./pkg/exf/exf_init.F |
53 |
EXF_INIT |
& hfluxconst, hflux, hflux0, hflux1, mythid ) |
|
./pkg/exf/exf_bulkformulae.F |
455 |
EXF_BULKFORMULAE |
hflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
489 |
EXF_BULKFORMULAE |
hflux(i,j,bi,bj) = hfl |
|
./pkg/exf/exf_getffields.F |
139 |
EXF_GETFFIELDS |
& hflux, hflux0, hflux1, hfluxmask, |
|
./pkg/exf/exf_getsurfacefluxes.F |
62 |
EXF_GETSURFACEFLUXES |
& maskc, hflux, xx_hflux0, xx_hflux1, xx_hflux_dummy, |
|
./pkg/exf/exf_check_range.F |
65 |
EXF_CHECK_RANGE |
if ( ( hflux(i,j,bi,bj) .GT. 1600. .OR. |
|
./pkg/exf/exf_check_range.F |
66 |
EXF_CHECK_RANGE |
& hflux(i,j,bi,bj) .LT. -500. ) .AND. |
|
./pkg/exf/exf_check_range.F |
70 |
EXF_CHECK_RANGE |
& i, j, hflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
110 |
EXF_MAPFIELDS |
qnet(i,j,bi,bj) = exf_outscal_hflux*hflux(i,j,bi,bj) |
|
./pkg/exf/exf_diagnostics_fill.F |
40 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(hflux, 'EXFqnet ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getforcing.F |
159 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj)*maskc(i,j,1,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
167 |
EXF_GETFORCING |
_EXCH_XY_R8(hflux, mythid) |
|
./pkg/exf/exf_getforcing.F |
190 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj) + swflux(i,j,bi,bj) |
|
./pkg/exf/exf_fields.h |
160 |
NO PROCEDURE |
common /exf_hsflux_r/ hflux, sflux |
|
./pkg/exf/exf_fields.h |
161 |
NO PROCEDURE |
_RL hflux (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |