scale_file_history_meshfield Module Reference

module FElib / File / History More...

Data Types
interface	file_history_meshfield_in
interface	file_history_meshfield_put

Functions/Subroutines
subroutine, public	file_history_meshfield_setup (mesh1d_, mesh2d_, mesh3d_, meshcubedsphere2d_, meshcubedsphere3d_)
subroutine, public	file_history_meshfield_write ()
subroutine, public	file_history_meshfield_finalize ()

Detailed Description

module FElib / File / History

Description

A module for managing file history

Author

Yuta Kawai, Team SCALE

Function/Subroutine Documentation

file_history_meshfield_setup()

subroutine, public scale_file_history_meshfield::file_history_meshfield_setup	(	class(meshbase1d), intent(in), optional, target	mesh1d_,
		class(meshrectdom2d), intent(in), optional, target	mesh2d_,
		class(meshcubedom3d), intent(in), optional, target	mesh3d_,
		class(meshcubedspheredom2d), intent(in), optional, target	meshcubedsphere2d_,
		class(meshcubedspheredom3d), intent(in), optional, target	meshcubedsphere3d_ )

Definition at line 115 of file scale_file_history_meshfield.F90.

 
    use scale_file_h, only: &
      file_hshort
    use scale_prc, only: &
      prc_masterrank, &
      prc_myrank,     &
      prc_abort
    use scale_time, only: &
      time_nowdate,       &
      time_nowsubsec,     &
      time_startdaysec,   &
      time_dtsec,         &
      time_nowstep
    use scale_calendar, only: &
      calendar_get_name
    implicit none
 
    class(Meshbase1d), intent(in), target, optional :: mesh1D_
    class(MeshRectDom2d), intent(in), target, optional :: mesh2D_
    class(MeshCubeDom3D), intent(in), target, optional :: mesh3D_
    class(MeshCubedSphereDom2D), intent(in), target, optional :: meshCubedsphere2D_
    class(MeshCubedSphereDom3D), intent(in), target, optional :: meshCubedsphere3D_
 
    character(len=H_MID) :: FILE_HISTORY_MESHFILED_H_TITLE = 'SCALE-FEM FILE_HISTORY_MESHFIELD'
    character(len=H_MID) :: FILE_HISTORY_MESHFIELD_T_SINCE
 
    
    character(len=FILE_HSHORT) :: calendar
    real(DP) :: start_daysec
    !---------------------------------------------------------------------------
 
    file_history_meshfield_startdate(:) = time_nowdate
    file_history_meshfield_startsubsec  = time_nowsubsec
 
    start_daysec = time_startdaysec
    if ( time_nowdate(1) > 0 ) then
      write(file_history_meshfield_t_since,'(I4.4,5(A1,I2.2))') time_nowdate(1), &
                                                          '-', time_nowdate(2), &
                                                          '-', time_nowdate(3), &
                                                          ' ', time_nowdate(4), &
                                                          ':', time_nowdate(5), &
                                                          ':', time_nowdate(6)
      start_daysec = time_nowsubsec
    else
      file_history_meshfield_t_since = ''
    endif
 
    ! get calendar name
    call calendar_get_name( calendar )
 
    call file_history_setup( file_history_meshfiled_h_title,        & ! [IN]
      h_source, h_institute,                                        & ! [IN]
      start_daysec, time_dtsec,                                     & ! [IN]
      time_since = file_history_meshfield_t_since,                  & ! [IN]
      calendar = calendar,                                          & ! [IN]
      default_zcoord = 'model',                                     & ! [IN]
      myrank = prc_myrank                        )                    ! [IN]
 
    call file_history_set_nowdate( time_nowdate, time_nowsubsec, time_nowstep )
 
    !- Set a pointer to the  variable of mesh 
    
    nullify( mesh1d, mesh2d, mesh3d )
    nullify( meshcubedsphere2d, meshcubedsphere3d )
 
    if ( present(mesh1d_) ) then
      mesh1d => mesh1d_
      call set_dim_axis1d()
    else if ( present(mesh2d_) ) then
      mesh2d => mesh2d_
      call set_dim_axis2d()
    else if ( present(mesh3d_) ) then
      mesh3d => mesh3d_
      mesh2d => mesh3d%mesh2D
      call set_dim_axis3d()
    else if ( present(meshcubedsphere2d_) ) then
      meshcubedsphere2d => meshcubedsphere2d_
      call set_dim_axis2d_cubedsphere()
    else if ( present(meshcubedsphere3d_) ) then
      meshcubedsphere3d => meshcubedsphere3d_
      meshcubedsphere2d => meshcubedsphere3d%mesh2D
      call set_dim_axis3d_cubedsphere()
    else
      log_error("FILE_HISTORY_meshfield_setup",*)   "Any mesh (mesh1d/2d/3d) are not specified."
      call prc_abort
    end if
 
    file_history_filemeshfiled_disable = .false. 
 
    return

Referenced by mod_atmos_component::atmos_setup().

file_history_meshfield_write()

subroutine, public scale_file_history_meshfield::file_history_meshfield_write

Definition at line 211 of file scale_file_history_meshfield.F90.

    implicit none
    !-------------------------------------------------
 
    call file_history_write
    return

Referenced by mod_dg_driver::dg_driver().

file_history_meshfield_finalize()

subroutine, public scale_file_history_meshfield::file_history_meshfield_finalize

Definition at line 220 of file scale_file_history_meshfield.F90.

    implicit none
    !-------------------------------------------------
 
    call file_history_finalize()
    return

Referenced by mod_dg_driver::dg_driver(), and mod_dg_prep::dg_prep().