Changeset 12345 for NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DIA/diamlr.F90

Timestamp:

2020-01-28T15:26:14+01:00 (4 years ago)

Author:

acc

Message:

Branch dev_r12072_MERGE_OPTION2_2019. Fixed ticket #2372. Changes to enable compilation without key_iomput

File:

• NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DIA/diamlr.F90 (modified) (4 diffs)

NEMO/branches/2019/dev_r12072_MERGE_OPTION2_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
 
@@ -57 +59 @@
       !!
       !!----------------------------------------------------------------------
+#if defined key_iomput
 
       TYPE(xios_fieldgroup)                       ::   slxhdl_fldgrp
@@ -97 +100 @@
       ELSE
          IF (lwp) THEN
-            WRITE(numout, *) "diamlr: configuration not found or icomplete (field group 'diamlr_fields'"
+            WRITE(numout, *) "diamlr: configuration not found or incomplete (field group 'diamlr_fields'"
             WRITE(numout, *) "        and/or file group 'diamlr_files' and/or field 'diamlr_time' missing);"
             WRITE(numout, *) "        disabling output for multiple-linear-regression analysis."
@@ -385 +388 @@
 
       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