Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / mesonh_MOD / modd_nesting.f90
1 !-----------------------------------------------------------------
2 !--------------- special set of characters for SCCS information
3 !-----------------------------------------------------------------
4 !      @(#) Lib:/opt/local/MESONH/sources/modd/s.modd_nesting.f90, Version:1.3, Date:98/10/01, Last modified:98/06/04
5 !-----------------------------------------------------------------
6 !     ###################
7       MODULE MODD_NESTING
8 !     ###################
9 !
10 !!****  *MODD_NESTING* - declaration of gridnesting configuration variables
11 !!
12 !!    PURPOSE
13 !!    -------
14 !       The purpose of this declarative module is to specify  the variables
15 !     which concern the gridnesting configuration of all models.
16 !
17 !!
18 !!**  IMPLICIT ARGUMENTS
19 !!    ------------------
20 !!
21 !!      Module MODD_PARAMETERS  :
22 !!         JPMODELMAX : Maximum allowed  number of nested models
23 !!
24 !!    REFERENCE
25 !!    ---------
26 !!      Book2 of documentation of Meso-NH (module MODD_NESTING)
27 !!       
28 !!    AUTHOR
29 !!    ------
30 !!      J.P. Lafore   *Meteo France*
31 !!
32 !!    MODIFICATIONS
33 !!    -------------
34 !!      Original    18/08/95
35 !!      updated     29/07/96  (J.P. Lafore) MY_NAME(m) introduction          
36
37 !-------------------------------------------------------------------------------
38 !
39 !*       0.   DECLARATIONS
40 !             ------------
41 !
42 USE MODD_PARAMETERS
43 !
44 IMPLICIT NONE
45 !
46                             ! resolution RATIO between models m and its father NDAD(m)
47 INTEGER,SAVE,  DIMENSION(JPMODELMAX) :: NDXRATIO_ALL        ! in x-direction 
48 INTEGER,SAVE,  DIMENSION(JPMODELMAX) :: NDYRATIO_ALL        ! in y-direction 
49 INTEGER,SAVE,  DIMENSION(JPMODELMAX) :: NDTRATIO            ! in Time 
50 !
51 INTEGER,SAVE,  DIMENSION(JPMODELMAX) :: NXOR_ALL, NYOR_ALL  ! horizontal position (i,j) of the
52 INTEGER,SAVE,  DIMENSION(JPMODELMAX) :: NXEND_ALL,NYEND_ALL ! ORigin and END of model m 
53                                                      ! relative to its father NDAD(m)    
54 !
55 INTEGER,SAVE,  DIMENSION(JPMODELMAX) :: NDAD ! model number of the father of each model "m"
56 REAL,SAVE,     DIMENSION(JPMODELMAX) :: XWAY ! model m interactive nesting level with its father NDAD(m)
57 !
58                                                             !   MeSsaGes concerning 
59 INTEGER,SAVE,  DIMENSION(JPMODELMAX,JPMODELMAX) :: NMSG_IF  ! var. Interpolation at Flux
60 INTEGER,SAVE,  DIMENSION(JPMODELMAX,JPMODELMAX) :: NMSG_IS  ! and Scalar location
61 INTEGER,SAVE,  DIMENSION(JPMODELMAX,JPMODELMAX) :: NMSG_AVR ! AVeRage
62 INTEGER,SAVE,  DIMENSION(JPMODELMAX,JPMODELMAX) :: NMSG_END ! timestep END
63                                                             !   MeSsaGes concerning
64 INTEGER,SAVE,  DIMENSION(JPMODELMAX,JPMODELMAX) :: NMSG_AVR_END ! AVeRage END
65 !
66 CHARACTER(LEN=28),SAVE,   DIMENSION(JPMODELMAX) :: CMY_NAME,CDAD_NAME
67                                                   ! names of the initial FM-Files
68                                                   ! then generic names of output FM-Files
69                                                   ! of each model "m"
70                                                   ! and of its DAD model
71                                                   ! (read and written on the LFI parts)
72 INTEGER,SAVE,  DIMENSION(JPMODELMAX) :: NDT_2_WAY ! number of times the time step
73               ! of model n used for the relaxation time of the 2_WAY grid-nesting
74               ! interaction  i.e. Tau = NDT_2_WAY * XTSTEP
75 END MODULE MODD_NESTING