| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/ATM2D_VARS.h |
124 |
NO PROCEDURE |
COMMON/FLUXES_2D_OCN/ qneto_2D, evapo_2D, runoff_2D, |
|
./pkg/atm2d/ATM2D_VARS.h |
128 |
NO PROCEDURE |
_RL evapo_2D(1:sNx,1:sNy) ! ocean evap. (m/s) (-=out of ocean) |
|
./pkg/atm2d/calc_1dto2d.F |
140 |
CALC_WGHT2D |
evapo_2D(i,j)= evapo_2D(i,j) + atm_evap_ocn(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
141 |
CALC_WGHT2D |
IF (evapo_2D(i,j).GT.0. _d 0) THEN !convert negative evap. to precip |
|
./pkg/atm2d/calc_1dto2d.F |
142 |
CALC_WGHT2D |
precipo_2D(i,j)= precipo_2D(i,j) - evapo_2D(i,j) |
|
./pkg/atm2d/calc_1dto2d.F |
143 |
CALC_WGHT2D |
evapo_2D(i,j)=0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
162 |
CALC_WGHT2D |
evapo_2D(i,j)= evapo_2D(i,j) + atm_dLdt_ocnq(ind)* |
|
./pkg/atm2d/calc_1dto2d.F |
173 |
CALC_WGHT2D |
evapo_2D(i,j)= evapo_2D(i,j) + atm_dLdt_ocn(ind)* |
|
./pkg/atm2d/calc_1dto2d.F |
225 |
INIT_2DFLD |
evapo_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
82 |
CALC_1DTO2D |
& evapo_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/fixed_flux_add.F |
145 |
FIXED_FLUX_ADD |
evapo_2D(i,j)= -evap0(i,j,1,1) |
|
./pkg/atm2d/fixed_flux_add.F |
152 |
FIXED_FLUX_ADD |
evapo_2D(i,j)= evapo_2D(i,j) - |
|
./pkg/atm2d/relax_add.F |
146 |
RELAX_ADD |
evapo_2D(i,j)= evapo_2D(i,j) - frelflux |
|
./pkg/atm2d/sum_ocn_fluxes.F |
62 |
SUM_OCN_FLUXES |
& evapo_2D(i,j)*(1. _d 0-iceMask(i,j,1,1)) |