Changeset 12649 for NEMO/trunk/src/TOP

Timestamp:

2020-04-03T09:11:57+02:00 (4 years ago)

Author:

smasson

Message:

trunk: clean and unique 3rd dimension in iom_rstput, see #2432

File:

• NEMO/trunk/src/TOP/PISCES/SED/sedrst.F90 (modified) (1 diff)

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

@@ -80 +80 @@
          IF(lwp) WRITE(numsed,*) &
              '             open sed restart.output NetCDF file: ',TRIM(clpath)//clname
-         CALL iom_open( TRIM(clpath)//TRIM(clname), numrsw, ldwrt = .TRUE., kdlev = jpksed )
+         CALL iom_open( TRIM(clpath)//TRIM(clname), numrsw, ldwrt = .TRUE., kdlev = jpksed, cdcomp = 'SED' )
          lrst_sed = .TRUE.
       ENDIF