source: dynamico_lmdz/aquaplanet/LMDZ5/libf/phymar/PHY_Atm_RT_RUN.f90 @ 4031

Last change on this file since 4031 was 3990, checked in by millour, 8 years ago

An updated LMDZ5 (based on LMDZ rev 2786) to play with.
EM
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.