scale_time.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
module scale_time
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_stdio
  use scale_prof
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: time_gettimelabel

  !-----------------------------------------------------------------------------
  !
  !++ 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_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_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=*), intent(out) :: timelabel
    !---------------------------------------------------------------------------

    ! YYYYMMDDhhmmss.sss
    write(timelabel,'(I4.4,I2.2,I2.2,A1,I2.2,I2.2,I2.2,A1,I3.3)') &
         time_nowdate(1:3), '-', time_nowdate(4:6), '.', int(time_nowms*1000.0_dp)

    return
  end subroutine time_gettimelabel

end module scale_time