vcoord_cleanup Subroutine

private subroutine vcoord_cleanup(self)

Deallocate all arrays. Safe to call on uninitialised instances.

Type Bound

vcoord_t

Arguments

Type IntentOptional Attributes Name
class(vcoord_t), intent(inout) :: self

Source Code

   subroutine vcoord_cleanup(self)
      !! Deallocate all arrays.  Safe to call on uninitialised instances.
      class(vcoord_t), intent(inout) :: self
      if (allocated(self%dsig_target)) deallocate (self%dsig_target)
      if (allocated(self%z_ref)) deallocate (self%z_ref)
      self%nz = 0
   end subroutine vcoord_cleanup