checkouted atmos_model.F90 module_wrt_grid_comp.F90 fv_moving_nest_main.F90 from develop

Author: jkbk2004

atmos_model.F90

@@ -49,7 +49,7 @@ module atmos_model_mod
 use mpp_mod,            only: mpp_get_current_pelist_name
 use mpp_mod,            only: input_nml_file
 use fms2_io_mod,        only: file_exists
-use fms_mod,            only: write_version_number, stdlog, stdout
+use fms_mod,            only: close_file, write_version_number, stdlog, stdout
 use fms_mod,            only: clock_flag_default
 use fms_mod,            only: check_nml_error
 use diag_manager_mod,   only: diag_send_complete_instant
@@ -807,7 +807,7 @@ subroutine atmos_model_init (Atmos, Time_init, Time, Time_step)
    if (mpp_pe() == mpp_root_pe()) then
       unit = stdlog( )
       write (unit, nml=atmos_model_nml)
-      ! This is a NO-OP because unit==stdlog() call close_file (unit)
+      call close_file (unit)
    endif
 
    !--- set up clock time

io/module_wrt_grid_comp.F90

@@ -29,7 +29,6 @@ module module_wrt_grid_comp
       use mpi
       use esmf
       use fms
-      use mpp_mod, only : mpp_init
 
       use write_internal_state
       use module_fv3_io_def,   only : num_pes_fcst,                             &

moving_nest/fv_moving_nest_main.F90

@@ -40,8 +40,13 @@ module fv_moving_nest_main_mod
 #endif
   use time_manager_mod,       only: time_type, get_time, get_date, set_time, operator(+), &
       operator(-), operator(/), time_type_to_real
-  use fms_mod,                only: FATAL, mpp_clock_id, mpp_clock_begin,     &
-      mpp_clock_end, CLOCK_SUBCOMPONENT, clock_flag_default
+  use fms_mod,                only: file_exist, open_namelist_file,    &
+      close_file, error_mesg, FATAL,     &
+      check_nml_error, stdlog,           &
+      write_version_number,              &
+      mpp_clock_id, mpp_clock_begin,     &
+      mpp_clock_end, CLOCK_SUBCOMPONENT, &
+      clock_flag_default
   use mpp_mod,                only: mpp_error, stdout, FATAL, WARNING, NOTE, &
       input_nml_file, mpp_root_pe,    &
       mpp_npes, mpp_pe, mpp_chksum,   &