Changeset 13750 for NEMO/branches/2020/dev_12905_xios_restart/src/TOP/PISCES/SED/sedrst.F90

Timestamp:

2020-11-09T16:35:44+01:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2462: Fixes after merge

File:

• NEMO/branches/2020/dev_12905_xios_restart/src/TOP/PISCES/SED/sedrst.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_12905_xios_restart/src/TOP/PISCES/SED/sedrst.F90

@@ -91 +91 @@
                clpname = TRIM(Agrif_CFixed())//"_"//clname
             ENDIF
-            CALL iom_init( cwsxios_context, TRIM(clpath)//TRIM(clpname), ld_tmppatch = .false.,&
-                                                                         ld_closedef = .FALSE. )
+            CALL iom_init( cwsxios_context, fname = TRIM(clpath)//TRIM(clpname), ld_closedef = .FALSE. )
             CALL iom_swap(      cxios_context          )
 #else
@@ -392 +391 @@
                 ENDIF
                 CALL iom_init( crsxios_context, fname = TRIM(cn_sedrst_indir)//'/'//TRIM(clpname), &
-                                                idfp = iom_file(numrsr)%nfid, ld_tmppatch = .TRUE. )
+                                                idfp = iom_file(numrsr)%nfid, ld_closedef = .TRUE. )
             ENDIF
             IF(lrsxios) CALL iom_swap(crsxios_context)