| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_check_range.F |
154 |
EXF_CHECK_RANGE |
if ( (precip(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
155 |
EXF_CHECK_RANGE |
& precip(i,j,bi,bj) .GT. 2.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
159 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, precip(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
222 |
EXF_GETFFIELDS |
& precip, precip0, precip1, precipmask, |
|
./pkg/exf/exf_getffields.F |
342 |
EXF_GETFFIELDS |
& maskc, precip, xx_precip0, xx_precip1, xx_precip_dummy, |
|
./pkg/exf/exf_getforcing.F |
198 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj) |
|
./pkg/exf/exf_fields.h |
185 |
NO PROCEDURE |
common /exf_atm_temp_r/ atemp, aqh, lwflux, precip, snowprecip |
|
./pkg/exf/exf_fields.h |
189 |
NO PROCEDURE |
_RL precip (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/exf/exf_monitor.F |
127 |
EXF_MONITOR |
CALL MON_PRINTSTATS_RL(1,precip,'_precip', |
|
./pkg/exf/exf_init.F |
68 |
EXF_INIT |
& precipconst, precip, precip0, precip1, mythid ) |
|
./pkg/exf/exf_diagnostics_fill.F |
54 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(precip, 'EXFpreci',0,1,0,1,1,myThid) |
|
./pkg/thsice/thsice_map_exf.F |
68 |
THSICE_MAP_EXF |
totPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
91 |
THSICE_MAP_EXF |
snowPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_get_precip.F |
14 |
THSICE_GET_PRECIP |
O precip, snowPrc, flxSW, |
|
./pkg/thsice/thsice_get_precip.F |
48 |
THSICE_GET_PRECIP |
_RL precip (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_get_precip.F |
67 |
THSICE_GET_PRECIP |
precip(i,j) = ( rain(i,j,bi,bj)+runoff(i,j,bi,bj) )*rhofw |
|
./pkg/seaice/SEAICE_FFIELDS.h |
74 |
NO PROCEDURE |
& aqh, lwdown, swdown, precip, evap, runoff |
|
./pkg/seaice/SEAICE_FFIELDS.h |
81 |
NO PROCEDURE |
_RL precip (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_do_diags.F |
110 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( precip, 'Current precip', myIter, myThid ) |
|
./pkg/seaice/seaice_model.F |
73 |
SEAICE_MODEL |
_EXCH_XY_R8( precip, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
456 |
SEAICE_GET_FORCING |
precip(i,j,bi,bj) = bWghtFlux * precip0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
479 |
SEAICE_GET_FORCING |
precip(i,j,bi,bj) = aWghtFlux * precip0(i,j,bi,bj) + |