source: LMDZ5/branches/IPSLCM6.0.8/libf/phymar/PHY_Atm_RT_RUN.f90 @ 5331

Last change on this file since 5331 was 2160, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand
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.