File |
Line number |
Procedure |
Code |
./pkg/atm2d/ATM2D_VARS.h |
142 |
NO PROCEDURE |
COMMON/FLUXES_2D_ICE/ qneti_2D, evapi_2D, precipi_2D, |
./pkg/atm2d/ATM2D_VARS.h |
145 |
NO PROCEDURE |
_RL evapi_2D(1:sNx,1:sNy) ! ocean evap. (m/s) (-=out of ocean) |
./pkg/atm2d/calc_1dto2d.F |
149 |
CALC_WGHT2D |
evapi_2D(i,j)= evapi_2D(i,j) + atm_evap_ice(ind)*wgt |
./pkg/atm2d/calc_1dto2d.F |
150 |
CALC_WGHT2D |
IF (evapi_2D(i,j).GT.0. _d 0) THEN !convert negative evap. to precip |
./pkg/atm2d/calc_1dto2d.F |
151 |
CALC_WGHT2D |
precipi_2D(i,j)= precipi_2D(i,j) - evapi_2D(i,j) |
./pkg/atm2d/calc_1dto2d.F |
152 |
CALC_WGHT2D |
evapi_2D(i,j)=0. _d 0 |
./pkg/atm2d/calc_1dto2d.F |
167 |
CALC_WGHT2D |
evapi_2D(i,j)=evapi_2D(i,j)+atm_dLdt_iceq(ind)* |
./pkg/atm2d/calc_1dto2d.F |
178 |
CALC_WGHT2D |
evapi_2D(i,j)= evapi_2D(i,j)+atm_dLdt_ice(ind)* |
./pkg/atm2d/calc_1dto2d.F |
227 |
INIT_2DFLD |
evapi_2D(i,j)= 0. _d 0 |
./pkg/atm2d/calc_1dto2d.F |
81 |
CALC_1DTO2D |
& evapi_2D(i,j)*dtatmo*iceMask(i,j,1,1) + |
./pkg/atm2d/fixed_flux_add.F |
148 |
FIXED_FLUX_ADD |
evapi_2D(i,j)= -evap0(i,j,1,1) |
./pkg/atm2d/fixed_flux_add.F |
157 |
FIXED_FLUX_ADD |
evapi_2D(i,j)= evapi_2D(i,j) - |
./pkg/atm2d/pass_thsice_fluxes.F |
48 |
PASS_THSICE_FLUXES |
sum_evapIce(i,j) = sum_evapIce(i,j) - evapi_2D(i,j)*rhofw |
./pkg/atm2d/relax_add.F |
150 |
RELAX_ADD |
& evapi_2D(i,j)= evapi_2D(i,j) - frelflux |