New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10521 for NEMO/trunk – NEMO

Changeset 10521 for NEMO/trunk


Ignore:
Timestamp:
2019-01-16T08:58:14+01:00 (5 years ago)
Author:
smasson
Message:

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

Location:
NEMO/trunk/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/IOM/iom_nf90.F90

    r10425 r10521  
    572572         ENDIF 
    573573         ! define the dimension variables if it is not already done 
    574          cltmp = (/ 'nav_lon', 'nav_lat', 'nav_lev', 'time_counter', 'numcat' /) 
     574         ! Warning: we must use the same character length in an array constructor (at least for gcc compiler) 
     575         cltmp = (/ 'nav_lon     ', 'nav_lat     ', 'nav_lev     ', 'time_counter', 'numcat      ' /)    
    575576         CALL iom_nf90_check(NF90_DEF_VAR( if90id, TRIM(cltmp(1)), NF90_FLOAT , (/ 1, 2 /), iom_file(kiomid)%nvid(1) ), clinfo) 
    576577         CALL iom_nf90_check(NF90_DEF_VAR( if90id, TRIM(cltmp(2)), NF90_FLOAT , (/ 1, 2 /), iom_file(kiomid)%nvid(2) ), clinfo) 
  • NEMO/trunk/src/OCE/LBC/lib_mpp.F90

    r10437 r10521  
    168168   INTEGER,                    PARAMETER, PUBLIC ::   nbdelay = 2       !: number of delayed operations 
    169169   !: name (used as id) of allreduce-delayed operations 
    170    CHARACTER(len=32), DIMENSION(nbdelay), PUBLIC ::   c_delaylist = (/ 'cflice', 'fwb' /) 
     170   ! Warning: we must use the same character length in an array constructor (at least for gcc compiler) 
     171   CHARACTER(len=32), DIMENSION(nbdelay), PUBLIC ::   c_delaylist = (/ 'cflice', 'fwb   ' /) 
    171172   !: component name where the allreduce-delayed operation is performed 
    172173   CHARACTER(len=3),  DIMENSION(nbdelay), PUBLIC ::   c_delaycpnt = (/ 'ICE'   , 'OCE' /) 
Note: See TracChangeset for help on using the changeset viewer.