source:
LMDZ5/branches/testing/libf/phylmd/rrtm/aeropt_lw_rrtm.F90
@
2220
| Last change on this file since 2220 was 2220, checked in by , 9 years ago | |
|---|---|
|
|
| File size: 224 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(:,:,:,:)=0.0 |
| 12 | |
| 13 | END SUBROUTINE AEROPT_LW_RRTM |
Note: See TracBrowser
for help on using the repository browser.
