From 54e56eff81b5bd3a04cdd03f94e6441d76b4dcec Mon Sep 17 00:00:00 2001
From: Ahmad Nawab <ahmad.nawab@ecmwf.int>
Date: Wed, 14 Feb 2024 16:42:21 +0000
Subject: [PATCH] CTUW: make preprocessor flags lower case

---
 src/ecwam/ctuw.F90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/ecwam/ctuw.F90 b/src/ecwam/ctuw.F90
index b29533363..aa9741975 100644
--- a/src/ecwam/ctuw.F90
+++ b/src/ecwam/ctuw.F90
@@ -278,7 +278,7 @@ SUBROUTINE CTUW (DELPRO, MSTART, MEND,                    &
 !            LOOP OVER GRID POINTS
 !            ---------------------
             
-#IFNDEF _OPENACC
+#ifndef _OPENACC
 
 !               FLUX VELOCITIES AT THE GRID BOX INTERFACE 
 
@@ -321,7 +321,7 @@ SUBROUTINE CTUW (DELPRO, MSTART, MEND,                    &
 
 !                 BASIC CFL CHECKS (IN EACH DIRECTION)
 !                 ----------------
-#IFNDEF _OPENACC
+#ifndef _OPENACC
                   IF (ADXP(2) > ZDELLO(KY))THEN
                     WRITE (IU06,*) '********************************'
                     WRITE (IU06,*) '* CTUW:                        *'
@@ -531,7 +531,7 @@ SUBROUTINE CTUW (DELPRO, MSTART, MEND,                    &
 !     AND COMPUTE THEIR SUM AND CHECK IT IS LESS THAN 1 AS WELL
 !!!   THE SUM IS NEEDED LATER ON !!!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-#IFNDEF _OPENACC
+#ifndef _OPENACC
       DO K=1,NANG
         DO M = MSTART, MEND
           DO IJ=KIJS,KIJL