Changeset 10521 for NEMO/trunk
- Timestamp:
- 2019-01-16T08:58:14+01:00 (5 years ago)
- Location:
- NEMO/trunk/src/OCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/IOM/iom_nf90.F90
r10425 r10521 572 572 ENDIF 573 573 ! 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 ' /) 575 576 CALL iom_nf90_check(NF90_DEF_VAR( if90id, TRIM(cltmp(1)), NF90_FLOAT , (/ 1, 2 /), iom_file(kiomid)%nvid(1) ), clinfo) 576 577 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 168 168 INTEGER, PARAMETER, PUBLIC :: nbdelay = 2 !: number of delayed operations 169 169 !: 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 ' /) 171 172 !: component name where the allreduce-delayed operation is performed 172 173 CHARACTER(len=3), DIMENSION(nbdelay), PUBLIC :: c_delaycpnt = (/ 'ICE' , 'OCE' /)
Note: See TracChangeset
for help on using the changeset viewer.