From 264a821912f77d143d2df0bc9524d4c3c887c995 Mon Sep 17 00:00:00 2001 From: Soren Rasmussen Date: Wed, 31 Jul 2024 16:17:04 -0600 Subject: [PATCH] Small fixes to build --- physics/CONV/nTiedtke/mmm_cu_ntiedtke_pre.F90 | 5 ++--- physics/mmm_physics | 2 +- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/physics/CONV/nTiedtke/mmm_cu_ntiedtke_pre.F90 b/physics/CONV/nTiedtke/mmm_cu_ntiedtke_pre.F90 index 9cc532928..ae139ee86 100644 --- a/physics/CONV/nTiedtke/mmm_cu_ntiedtke_pre.F90 +++ b/physics/CONV/nTiedtke/mmm_cu_ntiedtke_pre.F90 @@ -25,8 +25,7 @@ module mmm_cu_ntiedtke_pre !! \htmlinclude mmm_cu_ntiedtke_init.html !! subroutine mmm_cu_ntiedtke_pre_init(con_cp, con_rd, con_rv, con_hvap, & - con_xls, con_hfus, con_g) - use foo:, only + con_xls, con_hfus, con_g, errmsg, errflg) implicit none !input arguments: @@ -39,7 +38,7 @@ subroutine mmm_cu_ntiedtke_pre_init(con_cp, con_rd, con_rv, con_hvap, & real(kind=kind_phys), intent(in) :: con_g !< gravitational acceleration !--- output arguments: - character(len=*), intent(out): : errmsg + character(len=*), intent(out) :: errmsg integer, intent(out) :: errflg ! Initialize the CCPP error handling variables diff --git a/physics/mmm_physics b/physics/mmm_physics index 4996408f9..a8644a41d 160000 --- a/physics/mmm_physics +++ b/physics/mmm_physics @@ -1 +1 @@ -Subproject commit 4996408f96e01827d4fabba99b5258aab35ea6bc +Subproject commit a8644a41dece32e97f8b5e0e8801f8edc3b60a89