Changeset 10521 for NEMO/trunk/src/OCE/LBC

Timestamp:

2019-01-16T08:58:14+01:00 (5 years ago)

Author:

smasson

Message:

trunk: bugfix for compilation with (at least) gcc, see #2201

File:

• NEMO/trunk/src/OCE/LBC/lib_mpp.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/LBC/lib_mpp.F90

@@ -168 +168 @@
    INTEGER,                    PARAMETER, PUBLIC ::   nbdelay = 2       !: number of delayed operations
    !: name (used as id) of allreduce-delayed operations
-   CHARACTER(len=32), DIMENSION(nbdelay), PUBLIC ::   c_delaylist = (/ 'cflice', 'fwb' /)
+   ! Warning: we must use the same character length in an array constructor (at least for gcc compiler)
+   CHARACTER(len=32), DIMENSION(nbdelay), PUBLIC ::   c_delaylist = (/ 'cflice', 'fwb   ' /)
    !: component name where the allreduce-delayed operation is performed
    CHARACTER(len=3),  DIMENSION(nbdelay), PUBLIC ::   c_delaycpnt = (/ 'ICE'   , 'OCE' /)