diff --git a/diag_manager/diag_data.F90 b/diag_manager/diag_data.F90 index 48c833c201..da9f879f0f 100644 --- a/diag_manager/diag_data.F90 +++ b/diag_manager/diag_data.F90 @@ -353,8 +353,6 @@ MODULE diag_data_mod !! .TRUE. is only supported if the diag_manager_init !! routine is called with the optional time_init parameter. LOGICAL :: use_modern_diag = .false. !< Namelist flag to use the modernized diag_manager code - LOGICAL :: use_mpp_io = .false. !< false is fms2_io (default); true is mpp_io - ! #ifdef use_netCDF diff --git a/diag_manager/diag_manager.F90 b/diag_manager/diag_manager.F90 index 6938b676ce..8b264843c0 100644 --- a/diag_manager/diag_manager.F90 +++ b/diag_manager/diag_manager.F90 @@ -201,9 +201,6 @@ MODULE diag_manager_mod ! The values are defined as GLO_REG_VAL (-999) and GLO_REG_VAL_ALT ! (-1) in diag_data_mod. ! - ! - ! Set to true, diag_manager uses mpp_io. Default is fms2_io. - ! ! USE time_manager_mod, ONLY: set_time, set_date, get_time, time_type, OPERATOR(>=), OPERATOR(>),& @@ -234,7 +231,7 @@ MODULE diag_manager_mod & use_cmor, issue_oor_warnings, oor_warnings_fatal, oor_warning, pack_size,& & max_out_per_in_field, flush_nc_files, region_out_use_alt_value, max_field_attributes, output_field_type,& & max_file_attributes, max_axis_attributes, prepend_date, DIAG_FIELD_NOT_FOUND, diag_init_time,diag_data_init,& - & use_mpp_io, use_modern_diag + & use_modern_diag USE diag_data_mod, ONLY: fileobj, fileobjU, fnum_for_domain, fileobjND USE diag_table_mod, ONLY: parse_diag_table USE diag_output_mod, ONLY: get_diag_global_att, set_diag_global_att @@ -3638,7 +3635,7 @@ SUBROUTINE diag_manager_init(diag_model_subset, time_init, err_msg) & max_input_fields, max_axes, do_diag_field_log, write_bytes_in_file, debug_diag_manager,& & max_num_axis_sets, max_files, use_cmor, issue_oor_warnings,& & oor_warnings_fatal, max_out_per_in_field, flush_nc_files, region_out_use_alt_value, max_field_attributes,& - & max_file_attributes, max_axis_attributes, prepend_date, use_modern_diag, use_mpp_io + & max_file_attributes, max_axis_attributes, prepend_date, use_modern_diag ! If the module was already initialized do nothing IF ( module_is_initialized ) RETURN @@ -3727,21 +3724,14 @@ SUBROUTINE diag_manager_init(diag_model_subset, time_init, err_msg) DO j = 1, max_input_fields ALLOCATE(input_fields(j)%output_fields(MAX_OUT_PER_IN_FIELD)) END DO +!> Allocate files ALLOCATE(files(max_files)) - if (.not.use_mpp_io) then - ALLOCATE(fileobjU(max_files)) - ALLOCATE(fileobj(max_files)) - ALLOCATE(fileobjND(max_files)) - ALLOCATE(fnum_for_domain(max_files)) + ALLOCATE(fileobjU(max_files)) + ALLOCATE(fileobj(max_files)) + ALLOCATE(fileobjND(max_files)) + ALLOCATE(fnum_for_domain(max_files)) !> Initialize fnum_for_domain with "dn" which stands for done - fnum_for_domain(:) = "dn" - CALL error_mesg('diag_manager_mod::diag_manager_init',& - & 'diag_manager is using fms2_io', NOTE) - else - CALL error_mesg('diag_manager_mod::diag_manager_init',& - &'MPP_IO is no longer supported. Please remove use_mpp_io from diag_manager_nml namelist',& - &FATAL) - endif + fnum_for_domain(:) = "dn" ALLOCATE(pelist(mpp_npes())) CALL mpp_get_current_pelist(pelist, pelist_name) diff --git a/diag_manager/diag_util.F90 b/diag_manager/diag_util.F90 index ce73068f53..8c12085ae3 100644 --- a/diag_manager/diag_util.F90 +++ b/diag_manager/diag_util.F90 @@ -60,7 +60,7 @@ MODULE diag_util_mod & get_axis_reqfld, axis_is_compressed, get_compressed_axes_ids USE diag_output_mod, ONLY: diag_output_init, write_axis_meta_data,& & write_field_meta_data, done_meta_data, diag_flush - USE diag_output_mod, ONLY: diag_field_write, diag_write_time !