Changeset 13306 for NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/IOM/iom.F90

Timestamp:

2020-07-15T10:32:38+02:00 (3 years ago)

Author:

andmirek

Message:

Ticket #2482: Replace ifdef with if defined in iom.F90

File:

• NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/IOM/iom.F90 (modified) (4 diffs)

NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/IOM/iom.F90

@@ -1510 +1510 @@
       IF(PRESENT(ldxios)) llx = ldxios
       IF( llx ) THEN
-#ifdef key_iomput
+#if defined key_iomput
       IF( kt == kwrite ) THEN
           IF(lwp) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar)
@@ -1540 +1540 @@
       IF(PRESENT(ldxios)) llx = ldxios
       IF( llx ) THEN
-#ifdef key_iomput
+#if defined key_iomput
       IF( kt == kwrite ) THEN
          IF(lwp) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar)
@@ -1570 +1570 @@
       IF(PRESENT(ldxios)) llx = ldxios
       IF( llx ) THEN
-#ifdef key_iomput
+#if defined key_iomput
       IF( kt == kwrite ) THEN
          IF(lwp) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar)
@@ -1600 +1600 @@
       IF(PRESENT(ldxios)) llx = ldxios
       IF( llx ) THEN
-#ifdef key_iomput
+#if defined key_iomput
       IF( kt == kwrite ) THEN
          IF(lwp) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar)