Skip to content

Commit

Permalink
Fix undeclared variable/routines in namelist IO (NOAA-EMC#149)
Browse files Browse the repository at this point in the history
* Remove namelist #ifdef, keeping the #if block and removing #else block
  • Loading branch information
christopherwharrop-noaa authored Oct 13, 2021
1 parent 6406366 commit bfcee14
Showing 1 changed file with 0 additions and 10 deletions.
10 changes: 0 additions & 10 deletions driver/fvGFS/atmosphere.F90
Original file line number Diff line number Diff line change
Expand Up @@ -472,18 +472,8 @@ subroutine atmosphere_init (Time_init, Time, Time_step, Grid_box, area)
! First, read atmos_model_nml namelist section - this is a workaround to avoid
! unnecessary additional changes to the input namelists, in anticipation of the
! implementation of a generic interface for GFDL and CCPP fast physics soon
#ifdef INTERNAL_FILE_NML
read(input_nml_file, nml=atmos_model_nml, iostat=io)
ierr = check_nml_error(io, 'atmos_model_nml')
#else
unit = open_namelist_file ( )
ierr=1
do while (ierr /= 0)
read (unit, nml=atmos_model_nml, iostat=io, end=10)
ierr = check_nml_error(io,'atmos_model_nml')
enddo
10 call close_file (unit)
#endif
!write(0,'(a)') "It's me, and my physics suite is '" // trim(ccpp_suite) // "'"
! *DH 20210326

Expand Down

0 comments on commit bfcee14

Please sign in to comment.