scale_file_monitor_meshfield::file_monitor_meshfield_set_dim Interface Reference

Public Member Functions
subroutine	file_monitor_meshfield_set_dim2d (mesh2d, dim_type)
subroutine	file_monitor_meshfield_set_dim3d (mesh3d, dim_type)

Detailed Description

Definition at line 46 of file scale_file_monitor_meshfield.F90.

Member Function/Subroutine Documentation

file_monitor_meshfield_set_dim2d()

subroutine scale_file_monitor_meshfield::file_monitor_meshfield_set_dim::file_monitor_meshfield_set_dim2d	(	class(meshbase2d), intent(in)	mesh2d,
		character(*), intent(in)	dim_type )

Definition at line 76 of file scale_file_monitor_meshfield.F90.

    implicit none
 
    class(MeshBase2D), intent(in) :: mesh2D
    character(*), intent(in) :: dim_type
    
    real(RP) :: area(1,1)
    real(RP) :: total_area, total_area_lc
 
    integer :: n
    integer :: ke
    !---------------------------------------------------------------------------
 
    total_area = 0.0_rp
    do n=1, mesh2d%LOCAL_MESH_NUM
      total_area = total_area + cal_total_lc( mesh2d%lcmesh_list(n) )
    end do
    area(1,1) = 1.0_rp
 
    call monitor_set_dim( 1, 1, 1, 1, 1, 1, 1, 1, 1,     &
      dim_type, 2, area=area(:,:), total_area=total_area )
    
    return

file_monitor_meshfield_set_dim3d()

subroutine scale_file_monitor_meshfield::file_monitor_meshfield_set_dim::file_monitor_meshfield_set_dim3d	(	class(meshbase3d), intent(in)	mesh3d,
		character(*), intent(in)	dim_type )

Definition at line 102 of file scale_file_monitor_meshfield.F90.

    implicit none
 
    class(MeshBase3D), intent(in) :: mesh3D
    character(*), intent(in) :: dim_type
    
    real(RP) :: area(1,1)
    real(RP) :: total_area, total_area_lc
 
    integer :: n
    integer :: ke
    !---------------------------------------------------------------------------
 
    total_area = 0.0_rp
    do n=1, mesh3d%LOCAL_MESH_NUM
      total_area = total_area + cal_total_lc( mesh3d%lcmesh_list(n) )
    end do
    area(1,1) = 1.0_rp
 
    call monitor_set_dim( 1, 1, 1, 1, 1, 1, 1, 1, 1,     &
      dim_type, 2, area=area(:,:), total_area=total_area )
    
    return

---

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

• scale_file_monitor_meshfield.F90