|
Last change
on this file since 2485 was
2231,
checked in by oboucher, 10 years ago
|
|
Putting minimum values for SW and LW aerosol optical depth values
Putting default value for aerosol single scattering albedo if no aerosol
Doing this consistently in all cases covered by flag_aerosol and flag_aerosol_strat
|
-
Property svn:executable set to
*
|
|
File size:
229 bytes
|
| Line | |
|---|
| 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 |
|---|
Note: See
TracBrowser
for help on using the repository browser.
