scale_file_base_meshfield Module Reference

module FElib / File / Base More...

Data Types
type	file_base_meshfield

Functions/Subroutines
subroutine	file_base_meshfield_init (this, var_num, mesh1d, mesh2d, meshcubedsphere2d, mesh3d, meshcubedsphere3d, force_uniform_grid)

Detailed Description

module FElib / File / Base

Description

A base module for outputting data with MeshField type

Author

Yuta Kawai, Team SCALE

Function/Subroutine Documentation

file_base_meshfield_init()

subroutine scale_file_base_meshfield::file_base_meshfield_init	(	class(file_base_meshfield), intent(inout)	this,
		integer, intent(in)	var_num,
		class(meshbase1d), intent(in), optional, target	mesh1d,
		class(meshrectdom2d), intent(in), optional, target	mesh2d,
		class(meshcubedspheredom2d), intent(in), optional, target	meshcubedsphere2d,
		class(meshcubedom3d), intent(in), optional, target	mesh3d,
		class(meshcubedspheredom3d), intent(in), optional, target	meshcubedsphere3d,
		logical, intent(in), optional	force_uniform_grid )

Definition at line 133 of file scale_file_base_meshfield.F90.

 
    use scale_file_common_meshfield, only: &
      file_common_meshfield_get_dims  
 
    implicit none
 
    class(FILE_base_meshfield), intent(inout) :: this
    integer, intent(in) :: var_num
    class(MeshBase1D), target, optional, intent(in) :: mesh1D
    class(MeshRectDom2D), target, optional, intent(in) :: mesh2D
    class(MeshCubedSphereDom2D), target, optional, intent(in) :: meshCubedSphere2D    
    class(MeshCubeDom3D), target, optional, intent(in) :: mesh3D
    class(MeshCubedSphereDom3D), target, optional, intent(in) :: meshCubedSphere3D
    logical, intent(in), optional :: force_uniform_grid
 
    logical :: check_specify_mesh
    !--------------------------------------------------
 
    this%fid = -1
 
    allocate( this%vars_ncid(var_num) )
    this%vars_ncid(:) = -1
  
    !-
    check_specify_mesh = .false.
    nullify( this%mesh1D, this%mesh2D, this%mesh3D )
    nullify( this%meshCS2D, this%meshCS3D )
  
    if (present(mesh1d)) then
      this%mesh1D => mesh1d
      check_specify_mesh = .true.
  
      allocate( this%dimsinfo(mf1d_dtype_num) )
      call file_common_meshfield_get_dims( mesh1d, this%dimsinfo(:) )
    end if
    if (present(mesh2d)) then
      this%mesh2D => mesh2d
      check_specify_mesh = .true.
  
      allocate( this%dimsinfo(mf2d_dtype_num) )
      call file_common_meshfield_get_dims( mesh2d, this%dimsinfo(:) )
    end if
    if (present(meshcubedsphere2d)) then
      this%meshCS2D => meshcubedsphere2d
      check_specify_mesh = .true.
  
      allocate( this%dimsinfo(mf2d_dtype_num) )
      call file_common_meshfield_get_dims( meshcubedsphere2d, this%dimsinfo(:) )
    end if
    if (present(mesh3d)) then
      this%mesh3D => mesh3d
      check_specify_mesh = .true.
  
      allocate( this%dimsinfo(mf3d_dtype_num) )
      call file_common_meshfield_get_dims( mesh3d, this%dimsinfo(:) )
    end if
    if (present(meshcubedsphere3d)) then
      this%meshCS3D => meshcubedsphere3d
      check_specify_mesh = .true.
  
      allocate( this%dimsinfo(mf3d_dtype_num) )
      call file_common_meshfield_get_dims( meshcubedsphere3d, this%dimsinfo(:) )
    end if
 
    if ( present(force_uniform_grid) ) then
      this%force_uniform_grid = force_uniform_grid
    else
      this%force_uniform_grid = .false.
    end if
     
    if (.not. check_specify_mesh) then
      log_error("FILE_base_meshfield_Init",*) 'Specify a mesh among mesh1D, 2D, and 3D. Check!'
      call prc_abort
    end if
 
    !-
    this%File_axes_written = .false.
    this%write_buf_amount = 0
  
    return

References scale_file_common_meshfield::file_common_meshfield_put_field1d_cartesbuf(), scale_file_common_meshfield::file_common_meshfield_put_field2d_cartesbuf(), scale_file_common_meshfield::file_common_meshfield_put_field2d_cubedsphere_cartesbuf(), scale_file_common_meshfield::file_common_meshfield_put_field3d_cartesbuf(), scale_file_common_meshfield::file_common_meshfield_put_field3d_cubedsphere_cartesbuf(), scale_file_common_meshfield::file_common_meshfield_set_cartesbuf_field1d(), scale_file_common_meshfield::file_common_meshfield_set_cartesbuf_field1d_local(), scale_file_common_meshfield::file_common_meshfield_set_cartesbuf_field2d(), scale_file_common_meshfield::file_common_meshfield_set_cartesbuf_field2d_cubedsphere(), scale_file_common_meshfield::file_common_meshfield_set_cartesbuf_field2d_local(), scale_file_common_meshfield::file_common_meshfield_set_cartesbuf_field3d(), scale_file_common_meshfield::file_common_meshfield_set_cartesbuf_field3d_cubedsphere(), and scale_file_common_meshfield::file_common_meshfield_set_cartesbuf_field3d_local().