CTUW: make preprocessor flags lower case

ecmwf-ifs · Feb 14, 2024 · 54e56ef · 54e56ef
1 parent d026989
commit 54e56ef
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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