Symbol Description Uses
evapi_2D 19



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