source: LMDZ5/branches/testing/libf/phymar/PHY_Atm_DY_INI.f90 @ 5192

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