source:
LMDZ5/branches/testing/libf/phylmd/rrtm/aeropt_lw_rrtm.F90
@
2220
Last change on this file since 2220 was 2220, checked in by , 10 years ago | |
---|---|
|
|
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.