From 15b100ff23a266b5a057c67a09328cd488cab549 Mon Sep 17 00:00:00 2001 From: haiqinli <38666296+haiqinli@users.noreply.github.com> Date: Wed, 3 Jul 2024 11:32:06 -0600 Subject: [PATCH] [production/RRFS.v1] To compile the model with new fms/2024.01 & RUC LSM deep soil temperature (#852) * to compile the model with new fms/2024.01 * Update the RUC LSM deep soil temperature from climatology to real foreast. --- atmos_model.F90 | 4 ++-- ccpp/physics | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/atmos_model.F90 b/atmos_model.F90 index 7e19fee3d..133beb3ad 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 @@ -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) - call close_file (unit) + close (unit) endif !--- set up clock time diff --git a/ccpp/physics b/ccpp/physics index 2d590dabf..4128e06a5 160000 --- a/ccpp/physics +++ b/ccpp/physics @@ -1 +1 @@ -Subproject commit 2d590dabf56f104115fcaf53342cab40f6baae1d +Subproject commit 4128e06a5336f05f80fd8cd57b1ad3112592ae93