source:
LMDZ5/branches/LMDZ6_rc0/libf/phymar/PHY_Atm_RT_RUN.f90
@
5038
Last change on this file since 5038 was 2160, checked in by , 10 years ago | |
---|---|
File size: 1.2 KB |
Line | |
---|---|
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.