| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
170 |
NO PROCEDURE |
COMMON /exf_hsflux_r/ hflux, sflux |
|
./pkg/exf/EXF_FIELDS.h |
172 |
NO PROCEDURE |
_RL sflux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_check_range.F |
89 |
EXF_CHECK_RANGE |
if ( ABS(sflux(i,j,bi,bj)) .GT. 1.E-6 .AND. |
|
./pkg/exf/exf_check_range.F |
93 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, sflux(i,j,bi,bj) |
|
./pkg/exf/exf_diagnostics_fill.F |
41 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(sflux, 'EXFempmr',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getffields.F |
170 |
EXF_GETFFIELDS |
& sflux, sflux0, sflux1, sfluxmask, |
|
./pkg/exf/exf_getforcing.F |
212 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
215 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
219 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
227 |
EXF_GETFORCING |
_EXCH_XY_RL(sflux, mythid) |
|
./pkg/exf/exf_getsurfacefluxes.F |
79 |
EXF_GETSURFACEFLUXES |
& maskc, sflux, xx_sflux0, xx_sflux1, xx_sflux_dummy, |
|
./pkg/exf/exf_init.F |
158 |
EXF_INIT |
& sfluxconst, sflux, sflux0, sflux1, |
|
./pkg/exf/exf_mapfields.F |
116 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj) |
|
./pkg/exf/exf_monitor.F |
114 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, sflux, '_sflux', |