scale_file_history_meshfield::file_history_meshfield_put Interface Reference

Public Member Functions
subroutine	file_history_meshfield_put1d (hstid, field1d, registered_comp_id)
subroutine	file_history_meshfield_put2d (hstid, field2d, registered_comp_id)
subroutine	file_history_meshfield_put3d (hstid, field3d, registered_comp_id)

Detailed Description

Definition at line 91 of file scale_file_history_meshfield.F90.

Member Function/Subroutine Documentation

file_history_meshfield_put1d()

subroutine scale_file_history_meshfield::file_history_meshfield_put::file_history_meshfield_put1d	(	integer, intent(in)	hstid,
		class(meshfield1d), intent(in)	field1d,
		integer, intent(in), optional	registered_comp_id )

Definition at line 316 of file scale_file_history_meshfield.F90.

    use scale_file_common_meshfield, only: &
      file_common_meshfield_put_field1d_cartesbuf
    implicit none
    integer, intent(in) :: hstid
    class(MeshField1D), intent(in) :: field1d
    integer, intent(in), optional :: registered_comp_id
 
    logical :: do_put
    integer :: ldomID
    real(RP), allocatable :: buf(:)
 
    type(FileHistoryMeshFieldComp), pointer :: target_comp
    !---------------------------------------------------------------------------
 
    call history_get_comp( registered_comp_id, & ! (in)
      target_comp ) ! (out)
    
    call file_history_query( hstid, do_put )
    if ( .not. do_put ) return
 
    !-
#ifdef _OPENACC
    do ldomid=1, field1d%mesh%LOCAL_MESH_NUM
      !$acc update host( field1d%local(ldomID)%val ) async(1)
    end do
    !$acc wait(1)
#endif    
    !-
    allocate( buf(target_comp%dims1D_size(1)) )
 
    call file_common_meshfield_put_field1d_cartesbuf( target_comp%mesh1D, field1d, buf )
    call file_history_put( hstid, buf )
 
    return

References scale_file_common_meshfield::file_common_meshfield_put_field1d_cartesbuf().

file_history_meshfield_put2d()

subroutine scale_file_history_meshfield::file_history_meshfield_put::file_history_meshfield_put2d	(	integer, intent(in)	hstid,
		class(meshfield2d), intent(in)	field2d,
		integer, intent(in), optional	registered_comp_id )

Definition at line 378 of file scale_file_history_meshfield.F90.

    use scale_file_common_meshfield, only: &
      file_common_meshfield_put_field2d_cartesbuf,            &
      file_common_meshfield_put_field2d_cubedsphere_cartesbuf
 
    implicit none
    integer, intent(in) :: hstid
    class(MeshField2D), intent(in) :: field2d
    integer, intent(in), optional :: registered_comp_id
 
    logical :: do_put
    integer :: ldomID
    real(RP), allocatable :: buf(:,:)
    
    type(FileHistoryMeshFieldComp), pointer :: target_comp
    !---------------------------------------------------------------------------
 
    call history_get_comp( registered_comp_id, & ! (in)
      target_comp ) ! (out)
    
    call file_history_query( hstid, do_put )
    if ( .not. do_put ) return
 
    !-
#ifdef _OPENACC
    do ldomid=1, field2d%mesh%LOCAL_MESH_NUM
      !$acc update host( field2d%local(ldomID)%val ) async(1)
    end do
    !$acc wait(1)
#endif    
    allocate( buf(target_comp%dims2D_size(1),target_comp%dims2D_size(2)) )
    
    if ( associated(target_comp%mesh2D) ) then
      call file_common_meshfield_put_field2d_cartesbuf( target_comp%mesh2D, field2d, buf )
    else if ( associated(target_comp%meshCubedSphere2D) ) then
      call file_common_meshfield_put_field2d_cubedsphere_cartesbuf( &
        target_comp%meshCubedSphere2D, field2d, buf )
    end if
    call file_history_put( hstid, buf )
 
    return

References scale_file_common_meshfield::file_common_meshfield_put_field2d_cartesbuf(), and scale_file_common_meshfield::file_common_meshfield_put_field2d_cubedsphere_cartesbuf().

file_history_meshfield_put3d()

subroutine scale_file_history_meshfield::file_history_meshfield_put::file_history_meshfield_put3d	(	integer, intent(in)	hstid,
		class(meshfield3d), intent(in)	field3d,
		integer, intent(in), optional	registered_comp_id )

Definition at line 446 of file scale_file_history_meshfield.F90.

    use scale_file_common_meshfield, only: &
      file_common_meshfield_put_field3d_cartesbuf,            &
      file_common_meshfield_put_field3d_cubedsphere_cartesbuf
 
    implicit none
    integer, intent(in) :: hstid
    class(MeshField3D), intent(in) :: field3d
    integer, intent(in), optional :: registered_comp_id
 
    logical :: do_put
    integer :: ldomID
    real(RP), allocatable :: buf(:,:,:)
 
    type(FileHistoryMeshFieldComp), pointer :: target_comp
    !---------------------------------------------------------------------------
 
    call history_get_comp( registered_comp_id, & ! (in)
      target_comp ) ! (out)
 
    call file_history_query( hstid, do_put )
    if ( .not. do_put ) return
 
    !-
#ifdef _OPENACC
    do ldomid=1, field3d%mesh%LOCAL_MESH_NUM
      !$acc update host( field3d%local(ldomID)%val ) async(1)
    end do
    !$acc wait(1)
#endif
 
    allocate( buf(target_comp%dims3D_size(1,1),target_comp%dims3D_size(2,1),target_comp%dims3D_size(3,1)) )
 
    if ( associated(target_comp%mesh3D) ) then
      call file_common_meshfield_put_field3d_cartesbuf( target_comp%mesh3D, field3d, buf )
    else if ( associated(target_comp%meshCubedSphere3D) ) then
      call file_common_meshfield_put_field3d_cubedsphere_cartesbuf( &
        target_comp%meshCubedSphere3D, field3d, buf )
    end if
    call file_history_put( hstid, buf )
 
    return

References scale_file_common_meshfield::file_common_meshfield_put_field3d_cartesbuf(), and scale_file_common_meshfield::file_common_meshfield_put_field3d_cubedsphere_cartesbuf().

---

The documentation for this interface was generated from the following file:

• scale_file_history_meshfield.F90