From 0a7c8ceb8e919bc105d1dbcc48a229af946f0454 Mon Sep 17 00:00:00 2001 From: ldfowler58 Date: Sat, 5 Jul 2025 10:44:48 -0600 Subject: [PATCH] * In ./src/core_atmosphere/physics/mpas_atmphys_interface.F, removed the variable refl10cm which is not used in subroutine microphysics_to_MPAS. --- src/core_atmosphere/physics/mpas_atmphys_interface.F | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/core_atmosphere/physics/mpas_atmphys_interface.F b/src/core_atmosphere/physics/mpas_atmphys_interface.F index 71e46dfcd2..40125972ab 100644 --- a/src/core_atmosphere/physics/mpas_atmphys_interface.F +++ b/src/core_atmosphere/physics/mpas_atmphys_interface.F @@ -805,7 +805,7 @@ subroutine microphysics_to_MPAS(configs,mesh,state,time_lev,diag,diag_physics,te real(kind=RKIND),dimension(:,:),pointer :: dtheta_dt_mp real(kind=RKIND),dimension(:,:),pointer :: qv,qc,qr,qi,qs,qg real(kind=RKIND),dimension(:,:),pointer :: nc,ni,nr,nifa,nwfa - real(kind=RKIND),dimension(:,:),pointer :: rainprod,evapprod,refl10cm + real(kind=RKIND),dimension(:,:),pointer :: rainprod,evapprod real(kind=RKIND),dimension(:,:),pointer :: re_cloud,re_ice,re_snow real(kind=RKIND),dimension(:,:),pointer :: rthmpten,rqvmpten,rqcmpten,rqrmpten,rqimpten,rqsmpten,rqgmpten real(kind=RKIND),dimension(:,:),pointer :: rncmpten,rnimpten,rnrmpten,rnifampten,rnwfampten @@ -914,7 +914,6 @@ subroutine microphysics_to_MPAS(configs,mesh,state,time_lev,diag,diag_physics,te call mpas_pool_get_array(diag_physics,'re_cloud',re_cloud) call mpas_pool_get_array(diag_physics,'re_ice' ,re_ice ) call mpas_pool_get_array(diag_physics,'re_snow' ,re_snow ) - call mpas_pool_get_array(diag_physics,'refl10cm',refl10cm) do j = jts,jte do k = kts,kte