Changeset 12961 for NEMO/branches/2020/dev_12905_xios_restart/src/ICE/icerst.F90

Timestamp:

2020-05-22T13:51:12+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2462: read/write restart with XIOS in TOP (with debug print statements)

File:

• NEMO/branches/2020/dev_12905_xios_restart/src/ICE/icerst.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_12905_xios_restart/src/ICE/icerst.F90

@@ -91 +91 @@
                   clpname = TRIM(Agrif_CFixed())//"_"//clname
                ENDIF
-               CALL iom_init( cwixios_context, TRIM(clpath)//TRIM(clpname), .false., ld_closedef = .FALSE. )
+               CALL iom_init( cwixios_context, TRIM(clpath)//TRIM(clpname), ld_tmppatch = .false.,&
+                                                                            ld_closedef = .FALSE. )
                CALL iom_swap(      cxios_context          )
 #else
@@ -223 +224 @@
              clpname = TRIM(Agrif_CFixed())//"_"//cn_icerst_in   
           ENDIF
-          CALL iom_init( crixios_context, fname = TRIM(cn_icerst_indir)//'/'//TRIM(clpname), ld_tmppatch = .TRUE. )
+          CALL iom_init( crixios_context, fname = TRIM(cn_icerst_indir)//'/'//TRIM(clpname), &
+                                          idfp = iom_file(numrir)%nfid, ld_tmppatch = .TRUE. )
       ENDIF