Changeset 14039

Timestamp:

2020-12-03T12:26:55+01:00 (3 years ago)

Author:

smasson

Message:

trunk: bugfix to compile without key_iomput

Location:

NEMO/trunk/src

Files:

• ICE/icerst.F90 (modified) (1 diff)
• OCE/IOM/iom.F90 (modified) (2 diffs)
• TOP/PISCES/SED/sedrst.F90 (modified) (1 diff)
• TOP/trcrst.F90 (modified) (1 diff)

NEMO/trunk/src/ICE/icerst.F90

@@ -99 +99 @@
                CALL iom_swap( cxios_context )
 #else
-               clinfo = 'Can not use XIOS in rst_opn'
-               CALL ctl_stop(TRIM(clinfo))
+               CALL ctl_stop( 'Can not use XIOS in rst_opn' )
 #endif
             ENDIF

NEMO/trunk/src/OCE/IOM/iom.F90

@@ -29 +29 @@
    USE in_out_manager  ! I/O manager
    USE lib_mpp           ! MPP library
-#if defined key_iomput
    USE sbc_oce  , ONLY :   nn_fsbc, ght_abl, ghw_abl, e3t_abl, e3w_abl, jpka, jpkam1
    USE icb_oce  , ONLY :   nclasses, class_num       !  !: iceberg classes
@@ -37 +36 @@
    USE phycst          ! physical constants
    USE dianam          ! build name of file
+#if defined key_iomput
    USE xios
 # endif

NEMO/trunk/src/TOP/PISCES/SED/sedrst.F90

@@ -94 +94 @@
             CALL iom_init( cw_sedrst_cxt, kdid = numrsw, ld_closedef = .FALSE. )
 #else
-               clinfo = 'Can not use XIOS in trc_rst_opn'
-               CALL ctl_stop(TRIM(clinfo))
+            CALL ctl_stop( 'Can not use XIOS in trc_rst_opn' )
 #endif
-            ENDIF
+         ENDIF
 
          lrst_sed = .TRUE.

NEMO/trunk/src/TOP/trcrst.F90

@@ -105 +105 @@
             CALL iom_init( cw_toprst_cxt, kdid = numrtw, ld_closedef = .FALSE. )
 #else
-               clinfo = 'Can not use XIOS in trc_rst_opn'
-               CALL ctl_stop(TRIM(clinfo))
+            CALL ctl_stop( 'Can not use XIOS in trc_rst_opn' )
 #endif
-            ENDIF
+         ENDIF
          lrst_trc = .TRUE.
       ENDIF