Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / mesonh_MOD / modd_time1.f90
1 !-----------------------------------------------------------------
2 !--------------- special set of characters for SCCS information
3 !-----------------------------------------------------------------
4 !      @(#) Lib:/opt/local/MESONH/sources/modd/s.modd_timen.f90, Version:1.9, Date:98/10/01, Last modified:98/06/04
5 !-----------------------------------------------------------------
6 !     ##################
7       MODULE MODD_TIME1
8 !     ##################
9 !
10 !!****  *MODD_TIME1* - 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 one nested model.
16 !
17 !!
18 !!**  IMPLICIT ARGUMENTS
19 !!    ------------------
20 !!      Module MODD_TIME : contains the definition of the types for time 
21 !!                              variables and time variables for all model
22 !!    REFERENCE
23 !!    ---------
24 !!      Book2 of documentation of Meso-NH (module MODD_TIME1)
25 !!       
26 !!    AUTHOR
27 !!    ------
28 !!      V. Ducrocq   *Meteo France*
29 !!
30 !!    MODIFICATIONS
31 !!    -------------
32 !!      Original    07/07/94       
33 !!      J.Stein     27/10/95   add the radiation call's instants               
34 !!      P.Bechtold  26/03/96   add the last deep convection call
35 !-------------------------------------------------------------------------------
36 !
37 !*       0.   DECLARATIONS
38 !             ------------
39 !
40 USE MODD_TYPE_DATE
41 !
42 IMPLICIT NONE
43 !
44 TYPE (DATE_TIME),SAVE :: TDTMOD        ! Time and Date of the  model beginning 
45 TYPE (DATE_TIME),SAVE :: TDTCUR        ! Current Time and Date  
46 TYPE (DATE_TIME),SAVE :: TDTRAD_FULL   ! Time and Date of the last full
47                                        ! radiation call
48 TYPE (DATE_TIME),SAVE :: TDTRAD_CLONLY ! Time and Date of the last radiation 
49                                        ! call for only the cloudy verticals
50 TYPE (DATE_TIME),SAVE :: TDTDCONV ! Time and Date of the last deep convection
51                                   ! call
52 !
53 END MODULE MODD_TIME1