Changeset 12344

Timestamp:

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

Author:

acc

Message:

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

Location:

NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE

Files:

• DIA/diadetide.F90 (modified) (2 diffs)
• DIA/diamlr.F90 (modified) (3 diffs)
• IOM/iom.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11943_MERGE_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

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

NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/IOM/iom.F90

@@ -299 +299 @@
       !!----------------------------------------------------------------------
 
+#if defined key_iomput
       CALL xios_close_context_definition()
       CALL xios_update_calendar( 0 )
+#else
+      IF( .FALSE. )   WRITE(numout,*) 'iom_init_closedef: should not see this'   ! useless statement to avoid compilation warnings
+#endif
 
    END SUBROUTINE iom_init_closedef
@@ -2459 +2463 @@
    END SUBROUTINE iom_context_finalize
 
+   SUBROUTINE iom_update_file_name( cdid )
+      CHARACTER(LEN=*), INTENT(in) ::   cdid
+      IF( .FALSE. )   WRITE(numout,*)  cdid   ! useless test to avoid compilation warnings
+   END SUBROUTINE iom_update_file_name
+
 #endif
 
@@ -2478 +2487 @@
 #else
       IF( .FALSE. )   WRITE(numout,*) cdname, pmiss_val   ! useless test to avoid compilation warnings
+      IF( .FALSE. )   pmiss_val = 0._wp                   ! useless assignment to avoid compilation warnings
 #endif
    END SUBROUTINE iom_miss_val