From 1e78173e18ed477a46e2a9370498a6a2cb599e9b Mon Sep 17 00:00:00 2001 From: Cheryl Craig Date: Mon, 5 Aug 2024 12:01:09 -0600 Subject: [PATCH] Fixes after the atmos_phys merge --- src/physics/cam/convect_shallow.F90 | 3 +-- src/physics/cam/zm_conv_intr.F90 | 3 +-- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/src/physics/cam/convect_shallow.F90 b/src/physics/cam/convect_shallow.F90 index a99cb3ad17..3252b4cf03 100644 --- a/src/physics/cam/convect_shallow.F90 +++ b/src/physics/cam/convect_shallow.F90 @@ -899,8 +899,7 @@ subroutine convect_shallow_tend( ztodt , cmfmc , & landfracdum(:ncol), & ptend_loc%s(:ncol,:), tend_s_snwprd(:ncol,:), tend_s_snwevmlt(:ncol,:), ptend_loc%q(:ncol,:pver,1), & rprdsh(:ncol,:), cld(:ncol,:), ztodt, & - precc(:ncol), snow(:ncol), ntprprd(:ncol,:), ntsnprd(:ncol,:), flxprec(:ncol,:), flxsnow(:ncol,:), & - fsnow_conv(:ncol,:) ) + precc(:ncol), snow(:ncol), ntprprd(:ncol,:), ntsnprd(:ncol,:), fsnow_conv(:ncol,:), flxprec(:ncol,:), flxsnow(:ncol,:)) ! ---------------------------------------------- ! ! record history variables from zm_conv_evap_run ! diff --git a/src/physics/cam/zm_conv_intr.F90 b/src/physics/cam/zm_conv_intr.F90 index 41acb25dcf..932566f79b 100644 --- a/src/physics/cam/zm_conv_intr.F90 +++ b/src/physics/cam/zm_conv_intr.F90 @@ -684,8 +684,7 @@ subroutine zm_conv_tend(pblh ,mcon ,cme , & landfrac(:ncol), & ptend_loc%s(:ncol,:), tend_s_snwprd(:ncol,:), tend_s_snwevmlt(:ncol,:), ptend_loc%q(:ncol,:pver,1), & rprd(:ncol,:), cld(:ncol,:), ztodt, & - prec(:ncol), snow(:ncol), ntprprd(:ncol,:), ntsnprd(:ncol,:), flxprec(:ncol,:), flxsnow(:ncol,:),& - fsnow_conv(:ncol,:) ) + prec(:ncol), snow(:ncol), ntprprd(:ncol,:), ntsnprd(:ncol,:), fsnow_conv(:ncol,:), flxprec(:ncol,:), flxsnow(:ncol,:)) evapcdp(:ncol,:pver) = ptend_loc%q(:ncol,:pver,1)