mod_psmile_date_and_time.f90

Go to the documentation of this file.

       module mod_psmile_date_and_time
         USE mod_kinds_model
!This data structure contains the initial date of the simulation, respectively
! the experiment.
!The meanings of the fields are
!   1   fullyear like 1978
!   2   month
!   3   day
!   4       hour
!   5   minutes
!   6   seconds

         integer(kind=ip_intwp_p)::ig_initial_date(1:6)
         logical::lg_date_is_initialized

       contains

         subroutine psmile_get_initial_date(id_datetime,id_error)
!------------------------------------------------------------------------
           USE mod_kinds_model
           implicit none
           integer(kind=ip_intwp_p),intent(out)::id_datetime(1:6),id_error

           !This is an initialization for test purposes only
           ig_initial_date(1)=2002
           ig_initial_date(2)=11 
           ig_initial_date(3)=8
           ig_initial_date(4)=13
           ig_initial_date(5)=7
           ig_initial_date(6)=30
           !End of test initialization

           id_error =0

           if(lg_date_is_initialized) then
             id_datetime=ig_initial_date
           else
             id_error=-999
           endif

         end subroutine psmile_get_initial_date

       end module mod_psmile_date_and_time