| File |
Line number |
Procedure |
Code |
|
./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/thsice/thsice_map_exf.F |
68 |
THSICE_MAP_EXF |
totPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
98 |
THSICE_MAP_EXF |
snowPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/atm2d/AGRID.h |
19 |
NO PROCEDURE |
REAL*8 precip(jm0) ! precip (mm/day) (+=into ocean) |
|
./pkg/atm2d/AGRID.h |
9 |
NO PROCEDURE |
& dhfidtg,dhfidtgeq,precip,evao,evai,devodtg,devodtgeq, |
|
./pkg/atm2d/read_atmos.F |
58 |
READ_ATMOS |
atm_precip(j_atm) = -precip(j_atm)/secDay1000 |
|
./pkg/exf/EXF_FIELDS.h |
181 |
NO PROCEDURE |
COMMON /exf_atm_temp_r/ atemp, aqh, lwflux, precip, snowprecip |
|
./pkg/exf/EXF_FIELDS.h |
185 |
NO PROCEDURE |
_RL precip (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_check_range.F |
168 |
EXF_CHECK_RANGE |
if ( (precip(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
169 |
EXF_CHECK_RANGE |
& precip(i,j,bi,bj) .GT. 2.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
173 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, precip(i,j,bi,bj) |
|
./pkg/exf/exf_diagnostics_fill.F |
56 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(precip, 'EXFpreci',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getffields.F |
229 |
EXF_GETFFIELDS |
& precip, precip0, precip1, precipmask, |
|
./pkg/exf/exf_getffields.F |
382 |
EXF_GETFFIELDS |
& maskc, precip, xx_precip0, xx_precip1, xx_precip_dummy, |
|
./pkg/exf/exf_getforcing.F |
212 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
200 |
EXF_INIT |
& precipconst, precip, precip0, precip1, |
|
./pkg/exf/exf_monitor.F |
131 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, precip, '_precip', |