| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
179 |
NO PROCEDURE |
COMMON /exf_netflux_r/ hflux, sflux |
|
./pkg/exf/EXF_FIELDS.h |
181 |
NO PROCEDURE |
_RL sflux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_check_range.F |
63 |
EXF_CHECK_RANGE |
IF ( ABS(sflux(i,j,bi,bj)) .GT. 1.E-6 .AND. |
|
./pkg/exf/exf_check_range.F |
67 |
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 |
192 |
EXF_GETFFIELDS |
U sflux, sflux0, sflux1, |
|
./pkg/exf/exf_getforcing.F |
219 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
229 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
232 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
148 |
EXF_GETSURFACEFLUXES |
& maskc, sflux, xx_sflux0, xx_sflux1, xx_sflux_dummy, |
|
./pkg/exf/exf_init_varia.F |
169 |
EXF_INIT_VARIA |
O sflux, sflux0, sflux1, |
|
./pkg/exf/exf_mapfields.F |
127 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj) |
|
./pkg/exf/exf_monitor.F |
128 |
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 |