Revert "feat: add assignment override in fms2_io for interpolator_typ…

…e_eq (#1287)"

This reverts commit 4b9e0e8.

fms2_io/fms2_io.F90

@@ -99,7 +99,6 @@ module fms2_io_mod
 public :: get_instance_filename
 public :: nullify_filename_appendix
 public :: flush_file
-public :: assignment(=)
 !> @}
 
 !> @brief Opens a given netcdf or domain file.

fms2_io/netcdf_io.F90

@@ -240,7 +240,6 @@ module netcdf_io_mod
 public :: write_restart_bc
 public :: read_restart_bc
 public :: flush_file
-public :: assignment(=)
 
 !> @ingroup netcdf_io_mod
 interface netcdf_add_restart_variable
@@ -332,12 +331,6 @@ module netcdf_io_mod
  module procedure is_valid_r4
 end interface is_valid
 
-!> @brief "=" operator for FmsNetcdfFile_t type
-interface assignment(=)
- module procedure FmsNetcdfFile_t_eq
-end interface assignment(=)
-
-
 !> @addtogroup netcdf_io_mod
 !> @{
 
@@ -2364,92 +2357,6 @@ subroutine flush_file(fileobj)
  endif
 end subroutine flush_file
 
-!> @brief "=" operator for FmsNetcdfFile_t type
-subroutine FmsNetcdfFile_t_eq(FmsNetcdfFile_out, FmsNetcdfFile_in)
-
- type(FmsNetcdfFile_t), intent(out) :: FmsNetcdfFile_out
- type(FmsNetcdfFile_t), intent(in) :: FmsNetcdfFile_in
-
- FmsNetcdfFile_out%path = FmsNetcdfFile_in%path
- FmsNetcdfFile_out%is_readonly = FmsNetcdfFile_in%is_readonly
- FmsNetcdfFile_out%ncid = FmsNetcdfFile_in%ncid
- FmsNetcdfFile_out%nc_format = FmsNetcdfFile_in%nc_format
- FmsNetcdfFile_out%is_netcdf4 = FmsNetcdfFile_in%is_netcdf4
- if(allocated(FmsNetcdfFile_in%pelist)) FmsNetcdfFile_out%pelist = FmsNetcdfFile_in%pelist
- FmsNetcdfFile_out%io_root = FmsNetcdfFile_in%io_root
- FmsNetcdfFile_out%is_root = FmsNetcdfFile_in%is_root
- FmsNetcdfFile_out%is_restart = FmsNetcdfFile_in%is_restart
- FmsNetcdfFile_out%mode_is_append = FmsNetcdfFile_out%mode_is_append
- if(allocated(FmsNetcdfFile_in%is_open)) FmsNetcdfFile_out%is_open = FmsNetcdfFile_in%is_open
- FmsNetcdfFile_out%num_restart_vars = FmsNetcdfFile_in%num_restart_vars
- FmsNetcdfFile_out%num_compressed_dims = FmsNetcdfFile_in%num_compressed_dims
- FmsNetcdfFile_out%is_diskless = FmsNetcdfFile_in%is_diskless
- FmsNetcdfFile_out%time_name = FmsNetcdfFile_in%time_name
-
- FmsNetcdfFile_out%bc_dimensions = dimension_information_copy(FmsNetcdfFile_in%bc_dimensions)
-
- if(allocated(FmsNetcdfFile_in%compressed_dims)) &
- FmsNetcdfFile_out%compressed_dims = CompressedDimension_copy(FmsNetcdfFile_in%compressed_dims)
-
- if(allocated(FmsNetcdfFile_in%restart_vars)) then
- allocate(FmsNetcdfFile_out%restart_vars(size(FmsNetcdfFile_in%restart_vars)))
- call RestartVariable_copy(FmsNetcdfFile_in%restart_vars,FmsNetcdfFile_out%restart_vars)
- end if
-
-
-end subroutine FmsNetcdfFile_t_eq
-
-!> @brief copies the type RestartVariable_t
-!! Note, RestartVariable_copy cannot be declared as an elemental function
-!! due to pointer assignments
-subroutine RestartVariable_copy(RestartVariable_in,RestartVariable_out)
-
- implicit none
- type(RestartVariable_t), intent(in), dimension(:) :: RestartVariable_in
- type(RestartVariable_t), intent(out), dimension(:) :: RestartVariable_out
-
- integer :: i
-
- do i=1, size(RestartVariable_in)
- RestartVariable_out(i)%varname = RestartVariable_in(i)%varname
- if(associated(RestartVariable_in(i)%data1d)) RestartVariable_out(i)%data1d => RestartVariable_in(i)%data1d
- if(associated(RestartVariable_in(i)%data2d)) RestartVariable_out(i)%data2d => RestartVariable_in(i)%data2d
- if(associated(RestartVariable_in(i)%data3d)) RestartVariable_out(i)%data3d => RestartVariable_in(i)%data3d
- if(associated(RestartVariable_in(i)%data4d)) RestartVariable_out(i)%data4d => RestartVariable_in(i)%data4d
- if(associated(RestartVariable_in(i)%data5d)) RestartVariable_out(i)%data5d => RestartVariable_in(i)%data5d
- end do
-
-end subroutine RestartVariable_copy
-
-!> @brief copies the type CompressedDimension_t
-elemental function CompressedDimension_copy(CompressedDimension_in)
-
- implicit none
- type(CompressedDimension_t), intent(in) :: CompressedDimension_in
- type(CompressedDimension_t) :: CompressedDimension_copy
-
- CompressedDimension_copy%dimname = CompressedDimension_in%dimname
- if(allocated(CompressedDimension_copy%npes_corner)) &
- CompressedDimension_copy%npes_corner = CompressedDimension_in%npes_corner
- if(allocated(CompressedDimension_in%npes_nelems)) &
- CompressedDimension_copy%npes_nelems = CompressedDimension_in%npes_nelems
-
-end function CompressedDimension_copy
-
-!> @brief copies the type dimension information
-elemental function dimension_information_copy(dimension_information_in)
-
- implicit none
- type(dimension_information), intent(in) :: dimension_information_in
- type(dimension_information) :: dimension_information_copy
-
- dimension_information_copy%xlen = dimension_information_in%xlen
- dimension_information_copy%ylen = dimension_information_in%ylen
- dimension_information_copy%zlen = dimension_information_in%zlen
- dimension_information_copy%cur_dim_len = dimension_information_in%cur_dim_len
-
-end function dimension_information_copy
-
 end module netcdf_io_mod
 !> @}
 ! close documentation grouping

interpolator/interpolator.F90

@@ -52,7 +52,7 @@ module interpolator_mod
  get_num_variables, get_dimension_size, &
  get_variable_units, get_variable_names, &
  get_time_calendar, close_file, &
- get_variable_dimension_names, get_variable_sense, assignment(=)
+ get_variable_dimension_names, get_variable_sense
 
 use horiz_interp_mod, only : horiz_interp_type, &
  horiz_interp_new, &
@@ -346,7 +346,6 @@ subroutine interpolate_type_eq (Out, In)
 
  Out%interph = In%interph
  if (allocated(In%time_slice)) Out%time_slice = In%time_slice
- Out%fileobj = In%fileobj
  Out%file_name = In%file_name
  Out%time_flag = In%time_flag
  Out%level_type = In%level_type