Skip to content

Commit

Permalink
remove INTERNAL_FILE_NML block (#84)
Browse files Browse the repository at this point in the history
  • Loading branch information
yichengt900 authored Jul 19, 2024
1 parent 1bc8466 commit 7272712
Showing 1 changed file with 0 additions and 10 deletions.
10 changes: 0 additions & 10 deletions generic_tracers/generic_COBALT.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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)
Expand Down

0 comments on commit 7272712

Please sign in to comment.