source:
LMDZ5/branches/testing/libf/phymar/PHY_Atm_RT_RUN.f90
@
3946
Last change on this file since 3946 was 2160, checked in by , 10 years ago | |
---|---|
File size: 1.2 KB |
Rev | Line | |
---|---|---|
[2089] | 1 | subroutine PHY_Atm_RT_RUN(rklonr,iklOUT) |
2 | ||
3 | !------------------------------------------------------------------------------+ | |
4 | ! Tue 7-May-2013 MAR | | |
5 | ! MAR PHY_Atm_RT_RUN | | |
6 | ! subroutine PHY_Atm_RT_RUN performs Radiative Vertical Transfer Scheme | | |
7 | ! | | |
8 | ! version 3.p.4.1 created by H. Gallee, Tue 7-May-2013 | | |
9 | ! Last Modification by H. Gallee, Tue 7-May-2013 | | |
10 | ! | | |
11 | !------------------------------------------------------------------------------+ | |
12 | ||
13 | IMPLICIT NONE | |
14 | ||
15 | ||
16 | ||
17 | integer :: rklonr ! nb des pts de grilles | |
18 | integer :: iklOUT ! OUTPUT (pt de grille) | |
19 | ||
20 | ||
21 | ||
22 | ! Initialization of DATA | |
23 | ! ====================== | |
24 | ||
25 | ! ********** | |
26 | CALL Atm_RT_RUN(rklonr,iklOUT) | |
27 | ! ********** | |
28 | ||
29 | ||
30 | ||
31 | end subroutine PHY_Atm_RT_RUN |
Note: See TracBrowser
for help on using the repository browser.