File |
Line number |
Procedure |
Code |
./pkg/exf/EXF_FIELDS.h |
179 |
NO PROCEDURE |
COMMON /exf_netflux_r/ hflux, sflux |
./pkg/exf/EXF_FIELDS.h |
180 |
NO PROCEDURE |
_RL hflux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/exf/exf_bulkformulae.F |
516 |
EXF_BULKFORMULAE |
hflux (i,j,bi,bj) = 0. _d 0 |
./pkg/exf/exf_check_range.F |
53 |
EXF_CHECK_RANGE |
IF ( ( hflux(i,j,bi,bj) .GT. 1600. .OR. |
./pkg/exf/exf_check_range.F |
54 |
EXF_CHECK_RANGE |
& hflux(i,j,bi,bj) .LT. -500. ) .AND. |
./pkg/exf/exf_check_range.F |
58 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, hflux(i,j,bi,bj) |
./pkg/exf/exf_diagnostics_fill.F |
38 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(hflux, 'EXFqnet ',0,1,0,1,1,myThid) |
./pkg/exf/exf_getffields.F |
179 |
EXF_GETFFIELDS |
U hflux, hflux0, hflux1, |
./pkg/exf/exf_getforcing.F |
211 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = |
./pkg/exf/exf_getforcing.F |
231 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
./pkg/exf/exf_getforcing.F |
284 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj) + swflux(i,j,bi,bj) |
./pkg/exf/exf_getsurfacefluxes.F |
140 |
EXF_GETSURFACEFLUXES |
& maskc, hflux, xx_hflux0, xx_hflux1, xx_hflux_dummy, |
./pkg/exf/exf_init_varia.F |
158 |
EXF_INIT_VARIA |
O hflux, hflux0, hflux1, |
./pkg/exf/exf_mapfields.F |
111 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = exf_outscal_hflux*hflux(i,j,bi,bj) |
./pkg/exf/exf_monitor.F |
124 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, hflux, '_hflux', |