From 02cb72f7b15d7384c507813a3a6569265f588491 Mon Sep 17 00:00:00 2001 From: Chris Bunney <48915820+ukmo-ccbunney@users.noreply.github.com> Date: Fri, 14 Jul 2023 18:14:48 +0100 Subject: [PATCH] Correct typo in w3srcemd.F90 pre-processor directive. (#1039) --- 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