source: LMDZ5/branches/testing/libf/phylmd/rrtm/aeropt_lw_rrtm.F90 @ 2212

Last change on this file since 2212 was 2212, checked in by oboucher, 10 years ago

Adding initialization of LW aerosol properties to 0.
  • Property svn:executable set to *
File size: 224 bytes
Line 
1!
2! aeropt_lw_rrtm.F90 2014-05-13 C. Kleinschmitt
3!
4
5SUBROUTINE AEROPT_LW_RRTM
6
7  USE phys_state_var_mod, ONLY : tau_aero_lw_rrtm
8
9  IMPLICIT NONE
10
11  tau_aero_lw_rrtm(:,:,:,:)=0.0
12
13END SUBROUTINE AEROPT_LW_RRTM
Note: See TracBrowser for help on using the repository browser.