DissociateGeometry_MappedScalar2D_t Subroutine

3-Clause BSD with attribution
8 statements
Source File

public subroutine DissociateGeometry_MappedScalar2D_t(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(MappedScalar2D_t),	intent(inout)			::	this

Contents

Source Code

DissociateGeometry_MappedScalar2D_t

Source Code

  subroutine DissociateGeometry_MappedScalar2D_t(this)
    implicit none
    class(MappedScalar2D_t),intent(inout) :: this

    if(associated(this%geometry)) then
      this%geometry => null()
      this%geometry_associated = .false.
    endif

  endsubroutine DissociateGeometry_MappedScalar2D_t