scale_file_monitor_meshfield::file_monitor_meshfield_put Interface Reference

Public Member Functions
subroutine	file_monitor_meshfield_put2d (itemid, field)
subroutine	file_monitor_meshfield_put3d (itemid, field)

Detailed Description

Definition at line 54 of file scale_file_monitor_meshfield.F90.

Member Function/Subroutine Documentation

file_monitor_meshfield_put2d()

subroutine scale_file_monitor_meshfield::file_monitor_meshfield_put::file_monitor_meshfield_put2d	(	integer, intent(in)	itemid,
		class(meshfield2d), intent(in)	field )

Definition at line 128 of file scale_file_monitor_meshfield.F90.

    implicit none
 
    class(MeshField2D), intent(in) :: field
    integer, intent(in) :: itemid
 
    real(RP) :: total_lc(1,1)
    integer :: n
    !---------------------------------------------------------------------------
 
    if ( itemid <= 0 ) return
 
    total_lc(1,1) = 0.0_rp
    do n=1, field%mesh%LOCAL_MESH_NUM
      total_lc(1,1) = total_lc(1,1) &
                    + cal_total_lc( field%mesh%lcmesh_list(n), field%local(n)%val )
    end do
    call monitor_put( itemid, total_lc(:,:) )
 
    return

file_monitor_meshfield_put3d()

subroutine scale_file_monitor_meshfield::file_monitor_meshfield_put::file_monitor_meshfield_put3d	(	integer, intent(in)	itemid,
		class(meshfield3d), intent(in)	field )

Definition at line 151 of file scale_file_monitor_meshfield.F90.

    implicit none
 
    class(MeshField3D), intent(in) :: field
    integer, intent(in) :: itemid
 
    real(RP) :: total_lc(1,1)
    integer :: n
    !---------------------------------------------------------------------------
 
    if ( itemid <= 0 ) return
 
    total_lc(1,1) = 0.0_rp
    do n=1, field%mesh%LOCAL_MESH_NUM
      total_lc(1,1) = total_lc(1,1) &
                    + cal_total_lc( field%mesh%lcmesh_list(n), field%local(n)%val )
    end do
    call monitor_put( itemid, total_lc(:,:) )
 
    return

---

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

• scale_file_monitor_meshfield.F90