Last change
on this file since 2214 was
2214,
checked in by oboucher, 10 years ago
|
Olivier Boucher: adding routine for initializing aerosol LW optical properties
|
-
Property svn:executable set to
*
|
File size:
224 bytes
|
Rev | Line | |
---|
[2214] | 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(:,:,:,:)=0.0 |
---|
| 12 | |
---|
| 13 | END SUBROUTINE AEROPT_LW_RRTM |
---|
Note: See
TracBrowser
for help on using the repository browser.