delete_Data Subroutine

private subroutine delete_Data(gd)

Arguments

Type IntentOptional Attributes Name
type(Grid_) :: gd

Contents

Source Code

delete_Data

Source Code

     subroutine delete_Data(gd)
      type(Grid_) :: gd
      if (associated(gd%grid_data)) then
         deallocate(gd%grid_data)
         gd%grid_data => null()
      endif
      call ps_clean_annotation(gd%annotation)
     end subroutine delete_Data