Changeset 14239 for NEMO/trunk/src/ABL/sbcabl.F90

Timestamp:

2020-12-23T09:57:16+01:00 (3 years ago)

Author:

smasson

Message:

trunk: replace key_iomput by key_xios

File:

• NEMO/trunk/src/ABL/sbcabl.F90 (modified) (2 diffs)

NEMO/trunk/src/ABL/sbcabl.F90

@@ -36 +36 @@
    USE sbc_ice, ONLY : wndm_ice, utau_ice, vtau_ice
 #endif
-#if ! defined key_iomput
+#if ! defined key_xios
    USE diawri    , ONLY : dia_wri_alloc_abl
 #endif
@@ -149 +149 @@
       CALL iom_close( inum )
 
-#if ! defined key_iomput
+#if ! defined key_xios
       IF( dia_wri_alloc_abl()  /= 0 ) CALL ctl_stop( 'STOP', 'abl_init : unable to allocate arrays' )
 #endif