From a484817f5e1c1d8fb27ad3f1fc3eb9dd3533a038 Mon Sep 17 00:00:00 2001 From: mlee03 Date: Thu, 3 Aug 2023 13:59:17 -0400 Subject: [PATCH] remove extra subroutine FmsNetcdfFile_t_ --- fms2_io/fms2_io.F90 | 27 --------------------------- 1 file changed, 27 deletions(-) diff --git a/fms2_io/fms2_io.F90 b/fms2_io/fms2_io.F90 index d27a5ada15..4d26b2d4a5 100644 --- a/fms2_io/fms2_io.F90 +++ b/fms2_io/fms2_io.F90 @@ -420,33 +420,6 @@ subroutine fms2_io_init () fms2_io_is_initialized = .true. end subroutine fms2_io_init -!> @brief = operator for FmsNetcdfFile_t type -subroutine FmsNetcdfFile_t_eq(FmsNetcdfFile_out, FmsNetcdfFile_in) - - type(FmsNetcdfFile_t), intent(in) :: FmsNetcdfFile_in - type(FmsNetcdfFile_t), intent(out) :: FmsNetcdfFile_out - - 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 - if(allocated(FmsNetcdfFile_in%restart_vars)) FmsNetcdfFile_out%restart_vars = FmsNetcdfFile_in%restart_vars - FmsNetcdfFile_out%num_restart_vars = FmsNetcdfFile_in%num_restart_vars - if(allocated(FmsNetcdfFile_in%compressed_dims)) FmsNetcdfFile_out%compressed_dims = FmsNetcdfFile_in%compressed_dims - 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 = FmsNetcdfFile_in%bc_dimensions - -end subroutine FmsNetcdfFile_t_eq - end module fms2_io_mod !> @} ! close documentation grouping