Changeset 12344 for NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diamlr.F90

Timestamp:

2020-01-28T15:17:27+01:00 (4 years ago)

Author:

acc

Message:

Branch dev_r11943_MERGE_2019. Fixed ticket #2373. Changes to enable compilation without key_iomput

File:

• NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diamlr.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diamlr.F90

@@ -13 +13 @@
    USE dom_oce        , ONLY :   adatrj
    USE timing         , ONLY :   timing_start, timing_stop
+#if defined key_iomput
    USE xios
+#endif
    USE tide_mod
 
@@ -59 +61 @@
       !!
       !!----------------------------------------------------------------------
+#if defined key_iomput
 
       TYPE(xios_fieldgroup)                       ::   slxhdl_fldgrp
@@ -387 +390 @@
 
       END IF
+#else
+      IF( .FALSE. ) write(numout,*) 'dia_mlr_iom_init: should not see this'    ! useless statement to avoid compiler warnings
+#endif
 
    END SUBROUTINE dia_mlr_iom_init