| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_averagesfields.F |
672 |
COST_AVERAGESFIELDS |
$ +swflux(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
683 |
COST_AVERAGESFIELDS |
& hflux(i,j,bi,bj)+swflux(i,j,bi,bj))/ |
|
./pkg/ecco/cost_averagesfields.F |
708 |
COST_AVERAGESFIELDS |
& swflux(i,j,bi,bj)+hflux(i,j,bi,bj) |
|
./pkg/exf/exf_monitor.F |
65 |
EXF_MONITOR |
CALL MON_PRINTSTATS_RL(1,swflux,'_swflux', |
|
./pkg/exf/exf_init.F |
70 |
EXF_INIT |
& swfluxconst, swflux, swflux0, swflux1, mythid ) |
|
./pkg/exf/exf_bulkformulae.F |
265 |
EXF_BULKFORMULAE |
& swflux(i,j,bi,bj) = -(1.0-exf_albedo) * swdown(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
267 |
EXF_BULKFORMULAE |
& swdown(i,j,bi,bj) = -swflux(i,j,bi,bj) / (1.0-exf_albedo) |
|
./pkg/exf/exf_bulkformulae.F |
486 |
EXF_BULKFORMULAE |
hfl = hfl + swflux(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
239 |
EXF_GETFFIELDS |
& swflux, swflux0, swflux1, swfluxmask, |
|
./pkg/exf/exf_check_range.F |
156 |
EXF_CHECK_RANGE |
if ( (swflux(i,j,bi,bj) .GT. 1. .OR. |
|
./pkg/exf/exf_check_range.F |
157 |
EXF_CHECK_RANGE |
& swflux(i,j,bi,bj) .LT. -1000. ) .AND. |
|
./pkg/exf/exf_check_range.F |
161 |
EXF_CHECK_RANGE |
& i, j, swflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
194 |
EXF_MAPFIELDS |
qsw(i,j,bi,bj) = exf_outscal_swflux*swflux(i,j,bi,bj) |
|
./pkg/exf/exf_diagnostics_fill.F |
42 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(swflux, 'EXFswnet',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getforcing.F |
171 |
EXF_GETFORCING |
_EXCH_XY_R8(swflux, mythid) |
|
./pkg/exf/exf_getforcing.F |
190 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj) + swflux(i,j,bi,bj) |
|
./pkg/exf/exf_fields.h |
194 |
NO PROCEDURE |
common /exf_swflux_r/ swflux |
|
./pkg/exf/exf_fields.h |
195 |
NO PROCEDURE |
_RL swflux (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |