ocean_vmix_destroy Subroutine

private subroutine ocean_vmix_destroy(this)

Type Bound

ocean_vmix_t

Arguments

Type IntentOptional Attributes Name
class(ocean_vmix_t), intent(inout) :: this

Source Code

   subroutine ocean_vmix_destroy(this)
      class(ocean_vmix_t), intent(inout) :: this
      this%is_init = .false.
      if (allocated(this%bl_depth)) deallocate (this%bl_depth)
      if (allocated(this%b0)) deallocate (this%b0)
      if (allocated(this%kv)) deallocate (this%kv)
      if (allocated(this%kt)) deallocate (this%kt)
      if (allocated(this%ks)) deallocate (this%ks)
      if (allocated(this%gamma_t)) deallocate (this%gamma_t)
      if (allocated(this%gamma_s)) deallocate (this%gamma_s)
      if (allocated(this%smooth_scratch)) deallocate (this%smooth_scratch)
      if (allocated(this%kd_bg)) deallocate (this%kd_bg)
   end subroutine ocean_vmix_destroy