| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
210 |
TURBIO |
_RL evap(istrip),shflux(istrip),runoff(istrip),bomb(istrip) |
|
./pkg/fizhi/fizhi_turb.F |
798 |
TURBIO |
O evap, shflux, runoff, bomb, |
|
./pkg/thsice/thsice_calc_thickn.F |
184 |
THSICE_CALC_THICKN |
_RL evap |
|
./pkg/thsice/thsice_calc_thickn.F |
315 |
THSICE_CALC_THICKN |
evap = frwAtm(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
634 |
THSICE_CALC_THICKN |
IF (evap/rhos *dt.GT.hs) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
635 |
THSICE_CALC_THICKN |
evap=evap-hs*rhos/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
638 |
THSICE_CALC_THICKN |
hs = hs - evap/rhos *dt |
|
./pkg/thsice/thsice_calc_thickn.F |
639 |
THSICE_CALC_THICKN |
evap=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
648 |
THSICE_CALC_THICKN |
IF (hi.GT.0. _d 0.AND.evap.GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
665 |
THSICE_CALC_THICKN |
IF (evap .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
676 |
THSICE_CALC_THICKN |
dhi = evap/rhoi*dt |
|
./pkg/thsice/thsice_calc_thickn.F |
678 |
THSICE_CALC_THICKN |
evap=evap-hnew(k)*rhoi/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
688 |
THSICE_CALC_THICKN |
evap=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
819 |
THSICE_CALC_THICKN |
fresh = fresh - evap |
|
./pkg/thsice/thsice_calc_thickn.F |
823 |
THSICE_CALC_THICKN |
qleft = qleft + evap*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
839 |
THSICE_CALC_THICKN |
& (mwater0-(rhos*hs+rhoi*hi))/dt,evap,fresh,fsalt(i,j) |
|
./pkg/thsice/thsice_get_bulkf.F |
102 |
THSICE_GET_BULKF |
O flwup, flh, fsh, df0dT, ust, vst, evap, ssq, dEvdT, |
|
./pkg/thsice/thsice_get_bulkf.F |
108 |
THSICE_GET_BULKF |
O flwup, flh, fsh, df0dT, ust, vst, evap, ssq, dEvdT, |
|
./pkg/thsice/thsice_get_bulkf.F |
14 |
THSICE_GET_BULKF |
O flxExceptSw, df0dT, evap, dEvdT, |
|
./pkg/thsice/thsice_get_bulkf.F |
51 |
THSICE_GET_BULKF |
_RL evap |
|
./pkg/thsice/thsice_get_bulkf.F |
86 |
THSICE_GET_BULKF |
evap = EVPloc(1) * 1. _d -3 |
|
./pkg/thsice/thsice_solve4temp.F |
162 |
THSICE_SOLVE4TEMP |
_RL evap, dEvdT |
|
./pkg/thsice/thsice_solve4temp.F |
342 |
THSICE_SOLVE4TEMP |
O flxExceptSw, df0dT, evap, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
347 |
THSICE_SOLVE4TEMP |
O flxExceptSw, df0dT, evap, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
391 |
THSICE_SOLVE4TEMP |
O flxExceptSw, df0dT, evap, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
396 |
THSICE_SOLVE4TEMP |
O flxExceptSw, df0dT, evap, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
454 |
THSICE_SOLVE4TEMP |
evpAtm(i,j) = evap + dEvdT*dTsf |
|
./pkg/autodiff/autodiff_restore.F |
225 |
AUTODIFF_RESTORE |
evap(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_store.F |
251 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,9) = evap(I,J,bi,bj) |
|
./pkg/bulk_force/BULKF_INT.h |
11 |
NO PROCEDURE |
_RL evap(1-olx:snx+olx,1-oly:sny+oly,nSx,nSy) |
|
./pkg/bulk_force/BULKF_INT.h |
9 |
NO PROCEDURE |
& evap, savssq, fsh, flh, fswnet, flwup, flwupnet, |
|
./pkg/bulk_force/bulkf_ave.F |
59 |
BULKF_AVE |
& +evap(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_forcing.F |
100 |
BULKF_FORCING |
evap(i,j,bi,bj) = EVPloc(1) * 1. _d -3 / rhoFW |
|
./pkg/bulk_force/bulkf_forcing.F |
121 |
BULKF_FORCING |
evap(i,j,bi,bj) = evp/rhoFW |
|
./pkg/bulk_force/bulkf_forcing.F |
135 |
BULKF_FORCING |
evap(i,j,bi,bj) = evp/rhoFW |
|
./pkg/bulk_force/bulkf_forcing.F |
150 |
BULKF_FORCING |
evap(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
190 |
BULKF_FORCING |
EmPmR(i,j,bi,bj) = (evap(i,j,bi,bj)-rain(i,j,bi,bj) |
|
./pkg/exf/EXF_FIELDS.h |
224 |
NO PROCEDURE |
COMMON /exf_evap/ evap |
|
./pkg/exf/EXF_FIELDS.h |
225 |
NO PROCEDURE |
_RL evap (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_bulkformulae.F |
481 |
EXF_BULKFORMULAE |
evap(i,j,bi,bj) = -recip_rhoConstFresh*tau(i,j)*qstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
503 |
EXF_BULKFORMULAE |
evap (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_diagnostics_fill.F |
60 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(evap, 'EXFevap ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getffields.F |
271 |
EXF_GETFFIELDS |
& evap, evap0, evap1, evapmask, |
|
./pkg/exf/exf_getffields.F |
422 |
EXF_GETFFIELDS |
& maskc, evap, xx_evap0, xx_evap1, xx_evap_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 |
236 |
EXF_INIT |
& evapconst, evap, evap0, evap1, |
|
./pkg/exf/exf_monitor.F |
141 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, evap, '_evap', |