| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
172 |
NO PROCEDURE |
COMMON /exf_hsflux_r/ hflux, sflux |
|
./pkg/exf/EXF_FIELDS.h |
174 |
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 |
37 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(sflux, 'EXFempmr',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getffields.F |
169 |
EXF_GETFFIELDS |
& sflux, sflux0, sflux1, sfluxmask, |
|
./pkg/exf/exf_getforcing.F |
220 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
223 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
227 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
80 |
EXF_GETSURFACEFLUXES |
& maskc, sflux, xx_sflux0, xx_sflux1, xx_sflux_dummy, |
|
./pkg/exf/exf_init.F |
173 |
EXF_INIT |
& sfluxconst, sflux, sflux0, sflux1, |
|
./pkg/exf/exf_mapfields.F |
124 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj) |
|
./pkg/exf/exf_monitor.F |
124 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, sflux, '_sflux', |
|
./pkg/seaice/seaice_budget_ocean.F |
144 |
SEAICE_BUDGET_OCEAN |
sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
146 |
SEAICE_BUDGET_OCEAN |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
148 |
SEAICE_BUDGET_OCEAN |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
149 |
SEAICE_BUDGET_OCEAN |
empmr(i,j,bi,bj) = sflux(i,j,bi,bj)*rhoConstFresh |