| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
183 |
NO PROCEDURE |
COMMON /exf_atm_temp_r/ atemp, aqh, lwflux, precip, snowprecip |
|
./pkg/exf/EXF_FIELDS.h |
187 |
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 |
50 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(precip, 'EXFpreci',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getffields.F |
228 |
EXF_GETFFIELDS |
& precip, precip0, precip1, precipmask, |
|
./pkg/exf/exf_getffields.F |
254 |
EXF_GETFFIELDS |
precip(i,j,bi,bj) = |
|
./pkg/exf/exf_getffields.F |
255 |
EXF_GETFFIELDS |
& max( precip(i,j,bi,bj), snowPrecip(i,j,bi,bj) ) |
|
./pkg/exf/exf_getffields.F |
399 |
EXF_GETFFIELDS |
& maskc, precip, xx_precip0, xx_precip1, xx_precip_dummy, |
|
./pkg/exf/exf_getffields.F |
541 |
EXF_GETFFIELDS |
precip(i,j,bi,bj)=precip(i,j,bi,bj)+xx_precip_mean(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
220 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
215 |
EXF_INIT |
& precipconst, precip, precip0, precip1, |
|
./pkg/exf/exf_mapfields.F |
158 |
EXF_MAPFIELDS |
& *( precip(i,j,bi,bj)- snowPrecip(i,j,bi,bj) ) |
|
./pkg/exf/exf_mapfields.F |
170 |
EXF_MAPFIELDS |
& + flami*precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
176 |
EXF_MAPFIELDS |
& *precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_monitor.F |
151 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, precip, '_precip', |
|
./pkg/seaice/seaice_budget_ocean.F |
144 |
SEAICE_BUDGET_OCEAN |
sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_precip.F |
126 |
THSICE_GET_PRECIP |
precip(i,j) = cheapPrecip(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_precip.F |
17 |
THSICE_GET_PRECIP |
O precip, snowPrc, qPrcRnO, flxSW, |
|
./pkg/thsice/thsice_get_precip.F |
56 |
THSICE_GET_PRECIP |
_RL precip (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_get_precip.F |
79 |
THSICE_GET_PRECIP |
precip(i,j) = ( rain(i,j,bi,bj)+runoff(i,j,bi,bj) )*rhofw |
|
./pkg/thsice/thsice_map_exf.F |
102 |
THSICE_MAP_EXF |
snowPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
117 |
THSICE_MAP_EXF |
& *( precip(i,j,bi,bj)*rhoConstFresh - snowPrc(i,j) ) |
|
./pkg/thsice/thsice_map_exf.F |
72 |
THSICE_MAP_EXF |
totPrc(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/cheapaml/cheapaml.F |
569 |
CHEAPAML |
precip = 0. |
|
./pkg/cheapaml/cheapaml.F |
572 |
CHEAPAML |
precip = precip |
|
./pkg/cheapaml/cheapaml.F |
579 |
CHEAPAML |
precip = precip + ((q-ssqt(i,j)*0.9 _d 0)*dm/cheap_pr1) |
|
./pkg/cheapaml/cheapaml.F |
582 |
CHEAPAML |
cheapPrecip(i,j,bi,bj) = precip*1200/CheapHgrid(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
73 |
CHEAPAML |
_RL q,precip,ttt,entrain |