| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_monitor.F |
83 |
EXF_MONITOR |
CALL MON_PRINTSTATS_RL(1,runoff,'_runoff', |
|
./pkg/exf/exf_init_runoff.F |
46 |
EXF_INIT_RUNOFF |
runoff(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_init_runoff.F |
57 |
EXF_INIT_RUNOFF |
& , runoff, 1, xC, yC |
|
./pkg/exf/exf_init_runoff.F |
63 |
EXF_INIT_RUNOFF |
& , runoff, 1, mythid |
|
./pkg/exf/exf_init_runoff.F |
67 |
EXF_INIT_RUNOFF |
call EXF_FILTER_RL( runoff, runoffmask, mythid ) |
|
./pkg/exf/exf_init_runoff.F |
69 |
EXF_INIT_RUNOFF |
call EXF_FILTER_RS( runoff, runoffmask, mythid ) |
|
./pkg/exf/exf_init_runoff.F |
77 |
EXF_INIT_RUNOFF |
if(ABS(runoff(i,j,bi,bj)).gt.998.) runoff(i,j,bi,bj)=0. |
|
./pkg/exf/exf_init_runoff.F |
78 |
EXF_INIT_RUNOFF |
runoff(i,j,bi,bj)=exf_inscal_runoff*runoff(i,j,bi,bj) |
|
./pkg/exf/exf_init_runoff.F |
85 |
EXF_INIT_RUNOFF |
_EXCH_XY_R4( runoff, mythid ) |
|
./pkg/exf/exf_init_runoff.F |
87 |
EXF_INIT_RUNOFF |
CALL PLOT_FIELD_XYRL( runoff, |
|
./pkg/exf/exf_check_range.F |
168 |
EXF_CHECK_RANGE |
if ( (runoff(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
169 |
EXF_CHECK_RANGE |
& runoff(i,j,bi,bj) .GT. 1.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
173 |
EXF_CHECK_RANGE |
& i, j, runoff(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
156 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj) |
|
./pkg/exf/exf_fields.h |
228 |
NO PROCEDURE |
common /exfl_runoff_r/ runoff |
|
./pkg/exf/exf_fields.h |
229 |
NO PROCEDURE |
_RL runoff (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/seaice/SEAICE_FFIELDS.h |
74 |
NO PROCEDURE |
& aqh, lwdown, swdown, precip, evap, runoff |
|
./pkg/seaice/SEAICE_FFIELDS.h |
83 |
NO PROCEDURE |
_RL runoff (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_model.F |
75 |
SEAICE_MODEL |
_EXCH_XY_R8( runoff, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
86 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( runoff, 'Current runoff', myIter, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
460 |
SEAICE_GET_FORCING |
runoff(i,j,bi,bj) = bWghtFlux * runoff0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
483 |
SEAICE_GET_FORCING |
runoff(i,j,bi,bj) = aWghtFlux * runoff0(i,j,bi,bj) + |