| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
170 |
NO PROCEDURE |
COMMON /exf_hsflux_r/ hflux, sflux |
|
./pkg/exf/EXF_FIELDS.h |
171 |
NO PROCEDURE |
_RL hflux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_bulkformulae.F |
505 |
EXF_BULKFORMULAE |
hflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_check_range.F |
79 |
EXF_CHECK_RANGE |
if ( ( hflux(i,j,bi,bj) .GT. 1600. .OR. |
|
./pkg/exf/exf_check_range.F |
80 |
EXF_CHECK_RANGE |
& hflux(i,j,bi,bj) .LT. -500. ) .AND. |
|
./pkg/exf/exf_check_range.F |
84 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, hflux(i,j,bi,bj) |
|
./pkg/exf/exf_diagnostics_fill.F |
42 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(hflux, 'EXFqnet ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getffields.F |
158 |
EXF_GETFFIELDS |
& hflux, hflux0, hflux1, hfluxmask, |
|
./pkg/exf/exf_getforcing.F |
204 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = |
|
./pkg/exf/exf_getforcing.F |
218 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
226 |
EXF_GETFORCING |
_EXCH_XY_RL(hflux, mythid) |
|
./pkg/exf/exf_getforcing.F |
267 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj) + swflux(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
71 |
EXF_GETSURFACEFLUXES |
& maskc, hflux, xx_hflux0, xx_hflux1, xx_hflux_dummy, |
|
./pkg/exf/exf_init.F |
148 |
EXF_INIT |
& hfluxconst, hflux, hflux0, hflux1, |
|
./pkg/exf/exf_mapfields.F |
100 |
EXF_MAPFIELDS |
qnet(i,j,bi,bj) = exf_outscal_hflux*hflux(i,j,bi,bj) |
|
./pkg/exf/exf_monitor.F |
112 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, hflux, '_hflux', |