Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / mesonh_MOD / modd_time.f90
1 !-----------------------------------------------------------------
2 !--------------- special set of characters for SCCS information
3 !-----------------------------------------------------------------
4 !      @(#) Lib:/opt/local/MESONH/sources/modd/s.modd_time.f90, Version:1.9, Date:98/10/01, Last modified:98/06/04
5 !-----------------------------------------------------------------
6 !     #################
7       MODULE MODD_TIME
8 !     #################
9 !
10 !!****  *MODD_TIME* - declaration of temporal grid variables
11 !!
12 !!    PURPOSE
13 !!    -------
14 !       The purpose of this declarative module is to specify  the variables
15 !     which concern the time for all models
16 !
17 !!
18 !!**  IMPLICIT ARGUMENTS
19 !!    ------------------
20 !!      NONE 
21 !!
22 !!    REFERENCE
23 !!    --------- 
24 !!      Book2 of documentation of Meso-NH (module MODD_TIME)
25 !!       
26 !!    AUTHOR
27 !!    ------
28 !!      V. Ducrocq   *Meteo France*
29 !!
30 !!    MODIFICATIONS
31 !!    -------------
32 !!      Original    07/07/94                      
33 !!      Modification 10/03/95 (I.Mallet)   add the coupling times
34 !-------------------------------------------------------------------------------
35 !
36 !*       0.   DECLARATIONS
37 !             ------------
38 !
39 USE MODD_TYPE_DATE
40 !
41 USE MODD_PARAMETERS
42 !
43 IMPLICIT NONE
44 !
45 TYPE (DATE_TIME), SAVE :: TDTEXP      ! Time and Date of Experiment beginning 
46 TYPE (DATE_TIME), SAVE :: TDTSEG      ! Time and Date of the  segment beginning 
47 !
48 TYPE (DATE_TIME), SAVE, DIMENSION(JPCPLFILEMAX) :: TDTCPL ! Time and Date of 
49                                                           ! the CouPLing files
50 END MODULE MODD_TIME