source: LMDZ5/trunk/libf/phylmd/rrtm/aeropt_lw_rrtm.F90 @ 2214

Last change on this file since 2214 was 2214, checked in by oboucher, 9 years ago

Olivier Boucher: adding routine for initializing aerosol LW optical properties
  • 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.