| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_step_fwd.F |
285 |
THSICE_STEP_FWD |
pass_evap(i,j) = pass_evap(i,j) - icFrac*frw2oc(i,j)/rhofw |
|
./pkg/thsice/thsice_step_fwd.F |
351 |
THSICE_STEP_FWD |
pass_evap(i,j) = pass_evap(i,j) - frw2oc(i,j)/rhofw |
|
./pkg/atm2d/ATM2D_VARS.h |
195 |
NO PROCEDURE |
COMMON/OCN_FLUXES_PASS/ pass_runoff, pass_precip, pass_evap, |
|
./pkg/atm2d/ATM2D_VARS.h |
201 |
NO PROCEDURE |
_RL pass_evap(1-OLx:sNx+OLx,1-OLy:sNy+OLy) ! evap -> ocean (m/s) (+=out of ocean), inc. seaice part |
|
./pkg/atm2d/atm2d_read_pickup.F |
49 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_evap, 7, nIter0, myThid) |
|
./pkg/atm2d/atm2d_write_pickup.F |
159 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_evap, 7,myIter,myThid ) |
|
./pkg/atm2d/init_atm2d.F |
343 |
INIT_ATM2D |
pass_evap(i,j)= 0. _d 0 |
|
./pkg/atm2d/norm_ocn_fluxes.F |
46 |
NORM_OCN_FLUXES |
pass_evap(i,j)= -sum_evap(i,j)/nper !convert sign convention here |
|
./pkg/atm2d/put_ocnvars.F |
59 |
PUT_OCNVARS |
FWFlux_ocn(i,j)= (pass_precip(i,j) + pass_evap(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
79 |
PUT_OCNVARS |
EmPmR(i,j,1,1)= (pass_precip(i,j) + pass_evap(i,j) |
|
./pkg/atm2d/sum_yr_end_diags.F |
65 |
SUM_YR_END_DIAGS |
& (pass_precip(i,j) + pass_evap(i,j) + pass_runoff(i,j)) |