- Timestamp:
- 2020-11-09T16:35:44+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart/src/TOP/PISCES/SED/sedrst.F90
r13727 r13750 91 91 clpname = TRIM(Agrif_CFixed())//"_"//clname 92 92 ENDIF 93 CALL iom_init( cwsxios_context, TRIM(clpath)//TRIM(clpname), ld_tmppatch = .false.,& 94 ld_closedef = .FALSE. ) 93 CALL iom_init( cwsxios_context, fname = TRIM(clpath)//TRIM(clpname), ld_closedef = .FALSE. ) 95 94 CALL iom_swap( cxios_context ) 96 95 #else … … 392 391 ENDIF 393 392 CALL iom_init( crsxios_context, fname = TRIM(cn_sedrst_indir)//'/'//TRIM(clpname), & 394 idfp = iom_file(numrsr)%nfid, ld_ tmppatch= .TRUE. )393 idfp = iom_file(numrsr)%nfid, ld_closedef = .TRUE. ) 395 394 ENDIF 396 395 IF(lrsxios) CALL iom_swap(crsxios_context)
Note: See TracChangeset
for help on using the changeset viewer.