Changeset 8161 for branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

Timestamp:

2017-06-12T14:07:00+02:00 (7 years ago)

Author:

andmirek

Message:

few small bug fixes and support for Agrif restart read

File:

• branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (2 diffs)

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

@@ -365 +365 @@
    TYPE(xios_filegroup) :: filegroup_hdl
    INTEGER :: i
-
-        rst_file = TRIM(cn_ocerst_indir)//TRIM(cn_ocerst_in)
+   CHARACTER(lc)  ::   clpath
+
+        clpath = TRIM(cn_ocerst_indir)
+        IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/'
+        IF( TRIM(Agrif_CFixed()) == '0' ) THEN
+           rst_file = TRIM(cn_ocerst_indir)//TRIM(cn_ocerst_in)
+        ELSE
+           rst_file = TRIM(cn_ocerst_indir)//'1_'//TRIM(cn_ocerst_in)
+        ENDIF
 !set name of the restart file and enable available fields
         if(lwp) WRITE(numout,*) 'Setting restart filename (for XIOS) to: ',rst_file
@@ -397 +404 @@
 #if defined key_iomput
       TYPE(xios_context) :: nemo_hdl
+
       IF( TRIM(Agrif_CFixed()) == '0' ) THEN
         CALL xios_get_handle(TRIM(cdname),nemo_hdl)