scale_time.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
#include "scalelib.h"
module scale_time
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_io
  use scale_prof
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: time_gettimelabel
  public :: time_time2label
 
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  real(dp), public :: time_dtsec
 
  real(dp), public :: time_dtsec_atmos_dyn
  integer,  public :: time_nstep_atmos_dyn
  real(dp), public :: time_dtsec_atmos_phy_cp
  real(dp), public :: time_dtsec_atmos_phy_mp
  real(dp), public :: time_dtsec_atmos_phy_rd
  real(dp), public :: time_dtsec_atmos_phy_sf
  real(dp), public :: time_dtsec_atmos_phy_tb
  real(dp), public :: time_dtsec_atmos_phy_bl
  real(dp), public :: time_dtsec_atmos_phy_ch
  real(dp), public :: time_dtsec_atmos_phy_ae
  real(dp), public :: time_dtsec_atmos_phy_lt
  real(dp), public :: time_dtsec_ocean
  real(dp), public :: time_dtsec_land
  real(dp), public :: time_dtsec_urban
  real(dp), public :: time_dtsec_wallclock_check
 
  integer,  public :: time_dstep_atmos_dyn
  integer,  public :: time_dstep_atmos_phy_cp
  integer,  public :: time_dstep_atmos_phy_mp
  integer,  public :: time_dstep_atmos_phy_rd
  integer,  public :: time_dstep_atmos_phy_sf
  integer,  public :: time_dstep_atmos_phy_tb
  integer,  public :: time_dstep_atmos_phy_bl
  integer,  public :: time_dstep_atmos_phy_ch
  integer,  public :: time_dstep_atmos_phy_ae
  integer,  public :: time_dstep_atmos_phy_lt
  integer,  public :: time_dstep_ocean
  integer,  public :: time_dstep_land
  integer,  public :: time_dstep_urban
  integer,  public :: time_dstep_wallclock_check
 
  integer,  public :: time_nowdate(6)
  integer,  public :: time_nowday
  real(dp), public :: time_nowsec
  real(dp), public :: time_nowsubsec
  real(dp), public :: time_nowdaysec
  integer,  public :: time_nowstep
  integer,  public :: time_nstep
 
  integer,  public :: time_offset_year
  real(dp), public :: time_startdaysec
 
  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine time_gettimelabel( &
       timelabel )
    implicit none
 
    character(len=19), intent(out) :: timelabel
    !---------------------------------------------------------------------------
 
    ! YYYYMMDD-hhmmss.sss
    call time_time2label( time_nowdate(:), time_nowsubsec, & ! [IN]
                          timelabel                        ) ! [OUT]
 
    return
  end subroutine time_gettimelabel
 
  subroutine time_time2label( &
       date, subsec, &
       timelabel )
    implicit none
 
    integer,  intent(in) :: date(6)
    real(dp), intent(in) :: subsec
 
    character(len=*), intent(out) :: timelabel
    !---------------------------------------------------------------------------
 
    ! YYYYMMDD-hhmmss.sss
    write(timelabel,'(I4.4,I2.2,I2.2,A1,I2.2,I2.2,I2.2,A1,I3.3)') &
         date(1:3), '-', date(4:6), '.', int(subsec*1000.0_dp)
 
    return
  end subroutine time_time2label
 
end module scale_time