New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13306 – NEMO

Changeset 13306


Ignore:
Timestamp:
2020-07-15T10:32:38+02:00 (4 years ago)
Author:
andmirek
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/IOM/iom.F90

    r13149 r13306  
    15101510      IF(PRESENT(ldxios)) llx = ldxios 
    15111511      IF( llx ) THEN 
    1512 #ifdef key_iomput 
     1512#if defined key_iomput 
    15131513      IF( kt == kwrite ) THEN 
    15141514          IF(lwp) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) 
     
    15401540      IF(PRESENT(ldxios)) llx = ldxios 
    15411541      IF( llx ) THEN 
    1542 #ifdef key_iomput 
     1542#if defined key_iomput 
    15431543      IF( kt == kwrite ) THEN 
    15441544         IF(lwp) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) 
     
    15701570      IF(PRESENT(ldxios)) llx = ldxios 
    15711571      IF( llx ) THEN 
    1572 #ifdef key_iomput 
     1572#if defined key_iomput 
    15731573      IF( kt == kwrite ) THEN 
    15741574         IF(lwp) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) 
     
    16001600      IF(PRESENT(ldxios)) llx = ldxios 
    16011601      IF( llx ) THEN 
    1602 #ifdef key_iomput 
     1602#if defined key_iomput 
    16031603      IF( kt == kwrite ) THEN 
    16041604         IF(lwp) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) 
Note: See TracChangeset for help on using the changeset viewer.