source: LMDZ5/branches/IPSLCM6.0.10/libf/phymar/PHY_Atm_RT_INI.f90 @ 3172

Last change on this file since 3172 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.0 KB
Line 
1      subroutine PHY_Atm_RT_INI
2
3!------------------------------------------------------------------------------+
4!                                                         Sun 30-Jun-2013  MAR |
5!   MAR          PHY_Atm_RT_INI                                                |
6!     subroutine PHY_Atm_RT_INI intializes Radiative Vertical Transfer  Scheme |
7!                                                                              |
8!     version 3.p.4.1 created by H. Gallee,               Tue 12-Mar-2013      |
9!           Last Modification by H. Gallee,               Sun 30-Jun-2013      |
10!                                                                              |
11!------------------------------------------------------------------------------+
12
13      use Mod_Real
14      use Mod_PHY____grd
15      use Mod_PHY_RT_grd
16
17
18      IMPLICIT NONE
19
20
21
22
23! Initialization of DATA
24! ======================
25
26!                **********
27      CALL       Atm_RT_INI
28!                **********
29
30
31
32      end subroutine PHY_Atm_RT_INI
Note: See TracBrowser for help on using the repository browser.