| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
216 |
NO PROCEDURE |
COMMON /exf_swflux_r/ swflux |
|
./pkg/exf/EXF_FIELDS.h |
217 |
NO PROCEDURE |
_RL swflux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_check_range.F |
191 |
EXF_CHECK_RANGE |
if ( (swflux(i,j,bi,bj) .GT. 1. .OR. |
|
./pkg/exf/exf_check_range.F |
192 |
EXF_CHECK_RANGE |
& swflux(i,j,bi,bj) .LT. -1000. ) .AND. |
|
./pkg/exf/exf_check_range.F |
196 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, swflux(i,j,bi,bj) |
|
./pkg/exf/exf_diagnostics_fill.F |
44 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(swflux, 'EXFswnet',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getffields.F |
257 |
EXF_GETFFIELDS |
& swflux, swflux0, swflux1, swfluxmask, |
|
./pkg/exf/exf_getffields.F |
390 |
EXF_GETFFIELDS |
& maskc, swflux, xx_swflux0, xx_swflux1, xx_swflux_dummy, |
|
./pkg/exf/exf_getforcing.F |
209 |
EXF_GETFORCING |
& + swflux(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
234 |
EXF_GETFORCING |
_EXCH_XY_RL(swflux, 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_init.F |
224 |
EXF_INIT |
& swfluxconst, swflux, swflux0, swflux1, |
|
./pkg/exf/exf_mapfields.F |
210 |
EXF_MAPFIELDS |
qsw(i,j,bi,bj) = exf_outscal_swflux*swflux(i,j,bi,bj) |
|
./pkg/exf/exf_monitor.F |
137 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, swflux, '_swflux', |
|
./pkg/exf/exf_radiation.F |
126 |
EXF_RADIATION |
swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) * |
|
./pkg/exf/exf_radiation.F |
129 |
EXF_RADIATION |
swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) * |
|
./pkg/exf/exf_radiation.F |
133 |
EXF_RADIATION |
swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) * |