Changeset 8228

Timestamp:

2017-06-28T11:50:38+02:00 (7 years ago)

Author:

andmirek

Message:

fix path for restart file name

File:

• branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -370 +370 @@
         IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/'
         IF( TRIM(Agrif_CFixed()) == '0' ) THEN
-           rst_file = TRIM(cn_ocerst_indir)//TRIM(cn_ocerst_in)
+           rst_file = clpath//TRIM(cn_ocerst_in)
         ELSE
-           rst_file = TRIM(cn_ocerst_indir)//'1_'//TRIM(cn_ocerst_in)
+           rst_file = clpath//'1_'//TRIM(cn_ocerst_in)
         ENDIF
 !set name of the restart file and enable available fields