Changeset 12649 for NEMO/trunk/src/ABL

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/ABL/ablrst.F90 (modified) (2 diffs)

NEMO/trunk/src/ABL/ablrst.F90

@@ -74 +74 @@
             ENDIF
             !
-            CALL iom_open( TRIM(clpath)//TRIM(clname), numraw, ldwrt = .TRUE., kdlev = jpka )
+            CALL iom_open( TRIM(clpath)//TRIM(clname), numraw, ldwrt = .TRUE., kdlev = jpka, cdcomp = 'ABL' )
             lrst_abl = .TRUE.
          ENDIF
@@ -146 +146 @@
       ENDIF
 
-      CALL iom_open ( TRIM(cn_ablrst_indir)//'/'//cn_ablrst_in, numrar, kdlev = jpka )
+      CALL iom_open ( TRIM(cn_ablrst_indir)//'/'//cn_ablrst_in, numrar )
 
       ! Time info