From 8a1c813a326cc4c281c752122ff168cc30c53c06 Mon Sep 17 00:00:00 2001 From: Yi-Cheng Teng - NOAA GFDL <143743249+yichengt900@users.noreply.github.com> Date: Thu, 18 Jul 2024 11:46:07 -0400 Subject: [PATCH] remove INTERNAL_FILE_NML block --- generic_tracers/generic_COBALT.F90 | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/generic_tracers/generic_COBALT.F90 b/generic_tracers/generic_COBALT.F90 index f17be76..8832ff6 100644 --- a/generic_tracers/generic_COBALT.F90 +++ b/generic_tracers/generic_COBALT.F90 @@ -136,9 +136,6 @@ module generic_COBALT use data_override_mod, only: data_override use fms_mod, only: write_version_number, FATAL, WARNING, stdout, stdlog,mpp_pe,mpp_root_pe use fms_mod, only: check_nml_error -#ifndef INTERNAL_FILE_NML - use fms_mod, only: open_namelist_file, close_file -#endif use MOM_EOS, only: calculate_density, EOS_type use g_tracer_utils, only : g_tracer_type,g_tracer_start_param_list,g_tracer_end_param_list @@ -247,15 +244,8 @@ subroutine generic_COBALT_register(tracer_list) ! stdoutunit=stdout();stdlogunit=stdlog() -#ifdef INTERNAL_FILE_NML read (input_nml_file, nml=generic_COBALT_nml, iostat=io_status) ierr = check_nml_error(io_status,'generic_COBALT_nml') -#else - ioun = open_namelist_file() - read (ioun, generic_COBALT_nml,iostat=io_status) - ierr = check_nml_error(io_status,'generic_COBALT_nml') - call close_file (ioun) -#endif write (stdoutunit,'(/)') write (stdoutunit, generic_COBALT_nml)