Changeset 12345 for NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DIA/diadetide.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/diadetide.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DIA/diadetide.F90

@@ -12 +12 @@
    USE phycst         , ONLY :   rpi
    USE tide_mod
+#if defined key_iomput
    USE xios
+#endif
 
    IMPLICIT NONE
@@ -44 +46 @@
       TYPE(tide_harmonic), DIMENSION(:), POINTER ::   stideconst
 
+      lk_diadetide = .FALSE.
+#if defined key_iomput
       ! Enquire detiding activation state (test for presence of detiding-related
       ! weights field and output file group)
       IF ( xios_is_valid_field( "diadetide_weight" ).AND.xios_is_valid_filegroup( "diadetide_files" ).AND.ln_tide ) THEN
          lk_diadetide = .TRUE.
-      ELSE
-         lk_diadetide = .FALSE.
       END IF
+#endif
 
       IF (lwp) THEN