Changeset 8161 for branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/restart.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/restart.F90 (modified) (2 diffs)

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

@@ -223 +223 @@
 ! can handle checking if variable is in the restart file (there will be no need to open
 ! restart)
-#if defined key_agrif
-      lxios_read = .FALSE.
-      lxios_set = .TRUE.
-#else
-      IF(.NOT.lxios_set) lxios_read = lxios_read.AND.lxios_sini
-      IF( lxios_read) THEN
+         IF(.NOT.lxios_set) lxios_read = lxios_read.AND.lxios_sini
+         IF( lxios_read) THEN
          if(.NOT.lxios_set) then
              rxios_context = 'nemo_rst'
@@ -234 +230 @@
              lxios_set = .TRUE.
          endif
-       ENDIF
-#endif      
+         ENDIF
+         IF( TRIM(Agrif_CFixed()) /= '0' .AND. lxios_read) THEN
+            rxios_context = 'nemo_rst'
+            call iom_init( rxios_context )
+         ENDIF 
       ENDIF