From 7e7719927a80104d1bb4badf790e509f1e4d39b8 Mon Sep 17 00:00:00 2001 From: Grant Firl Date: Mon, 2 Dec 2024 14:35:19 -0500 Subject: [PATCH] make allocate spacing consistent --- ccpp/data/CCPP_typedefs.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ccpp/data/CCPP_typedefs.F90 b/ccpp/data/CCPP_typedefs.F90 index 2a0355264..1f5deaec2 100644 --- a/ccpp/data/CCPP_typedefs.F90 +++ b/ccpp/data/CCPP_typedefs.F90 @@ -1620,8 +1620,8 @@ subroutine gfdl_interstitial_create (Interstitial, is, ie, isd, ied, js, je, jsd else Interstitial%ngas = 0 end if - allocate(Interstitial%rilist(0:Interstitial%ngas)) - allocate(Interstitial%cpilist(0:Interstitial%ngas)) + allocate (Interstitial%rilist(0:Interstitial%ngas)) + allocate (Interstitial%cpilist(0:Interstitial%ngas)) if (present(rilist)) then Interstitial%rilist = rilist(0:Interstitial%ngas) Interstitial%cpilist = cpilist(0:Interstitial%ngas)