From f6f63d27fec917ce6713465490a8b482727e8cff Mon Sep 17 00:00:00 2001 From: "ukmo-chris.bunney" Date: Fri, 14 Jul 2023 10:59:03 +0100 Subject: [PATCH] Fixed small typo in preprocessor directive (for W3_IC2) --- model/src/w3srcemd.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/model/src/w3srcemd.F90 b/model/src/w3srcemd.F90 index 5a79269b4..6aa708bb8 100644 --- a/model/src/w3srcemd.F90 +++ b/model/src/w3srcemd.F90 @@ -757,7 +757,7 @@ SUBROUTINE W3SRCE ( srce_call, IT, ISEA, JSEA, IX, IY, IMOD, & REAL :: DTRAW #endif -#if defined(W3_IC1) || W3_IC2 || defined(W3_IC3) || defined(W3_IC4) || defined(W3_IC5) +#if defined(W3_IC1) || defined(W3_IC2) || defined(W3_IC3) || defined(W3_IC4) || defined(W3_IC5) REAL :: VSIC(NSPEC), VDIC(NSPEC) #endif