diff --git a/atmos_model.F90 b/atmos_model.F90 index 5525b5b58..5468249f3 100644 --- a/atmos_model.F90 +++ b/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: close_file, write_version_number, stdlog, stdout +use fms_mod, only: 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 @@ -831,7 +831,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) - call close_file (unit) + close (unit) endif !--- set up clock time diff --git a/ccpp/physics b/ccpp/physics index dfad42fe3..a7fe01c4d 160000 --- a/ccpp/physics +++ b/ccpp/physics @@ -1 +1 @@ -Subproject commit dfad42fe3ac83ab76c9e2523a5d185752d771fa8 +Subproject commit a7fe01c4da43955de38bac8c39667478cd03c711