!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier !SFX_LIC This is part of the SURFEX software governed by the CeCILL version 2.1 !SFX_LIC version 1. See LICENSE, Licence_CeCILL_V2.1-en.txt and Licence_CeCILL_V2.1-fr.txt !SFX_LIC for details. version 1. ! ################# MODULE MODD_TYPE_DATE_SURF ! ################# ! !!**** *MODD_TYPE_DATE* - declaration of temporal types !! !! PURPOSE !! ------- ! The purpose of this declarative module is to define ! the time types. ! !! !!** IMPLICIT ARGUMENTS !! ------------------ !! NONE !! !! REFERENCE !! --------- !! Book2 of documentation of Meso-NH (module MODD_TYPE_DATE) !! !! AUTHOR !! ------ !! P. Jabouille *Meteo France* !! !! MODIFICATIONS !! ------------- !! Original 11/08/97 !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS ! ------------ ! ! IMPLICIT NONE ! TYPE DATE INTEGER :: YEAR = 0 INTEGER :: MONTH = 0 INTEGER :: DAY = 0 END TYPE DATE ! TYPE DATE_TIME TYPE (DATE) :: TDATE REAL :: TIME = 0. END TYPE DATE_TIME ! END MODULE MODD_TYPE_DATE_SURF