!
! aeropt_lw_rrtm.F90 2014-05-13 C. Kleinschmitt
!

SUBROUTINE AEROPT_LW_RRTM

  USE phys_state_var_mod, ONLY : tau_aero_lw_rrtm

  IMPLICIT NONE

  tau_aero_lw_rrtm(:,:,:,:) = 1.e-15

END SUBROUTINE AEROPT_LW_RRTM