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_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_ocean
  integer,  public :: time_dstep_land
  integer,  public :: time_dstep_urban
  integer,  public :: time_dstep_wallclock_check

  integer,  public :: time_nowdate(6)
  real(DP), public :: time_nowms
  integer,  public :: time_nowday
  real(DP), public :: time_nowsec
  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_nowms, & ! [IN]
                          timelabel                    ) ! [OUT]

    return
  end subroutine time_gettimelabel

  subroutine time_time2label( &
       date, ms, &
       timelabel )
    implicit none

    integer,  intent(in) :: date(6)
    real(DP), intent(in) :: ms

    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(ms*1000.0_dp)

    return
  end subroutine time_time2label

end module scale_time