LMDZ
aeropt_lw_rrtm.F90
Go to the documentation of this file.
1 !
2 ! aeropt_lw_rrtm.F90 2014-05-13 C. Kleinschmitt
3 !
4 
5 SUBROUTINE 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(:,:,:,:) = 1.e-15
12 
13 END SUBROUTINE aeropt_lw_rrtm
phys_state_var_mod::tau_aero_lw_rrtm
real, dimension(:,:,:,:), allocatable, save tau_aero_lw_rrtm
Definition: phys_state_var_mod.F90:389
phys_state_var_mod
Definition: phys_state_var_mod.F90:4
aeropt_lw_rrtm
subroutine aeropt_lw_rrtm
Definition: aeropt_lw_rrtm.F90:6