Changeset 8650 for branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

Timestamp:

2017-10-20T17:46:49+02:00 (7 years ago)

Author:

andmirek

Message:

fix writing restart in domvvl.F90

File:

• branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90 (modified) (2 diffs)

branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

@@ -33 +33 @@
    USE wrk_nemo        ! Memory allocation
    USE timing          ! Timing
+   USE iom_def, ONLY : lwxios
 
    IMPLICIT NONE
@@ -946 +947 @@
          !                                   ! ===================
          IF(lwp) WRITE(numout,*) '---- dom_vvl_rst ----'
+         IF( lwxios ) CALL iom_swap(      wxios_context          )
          !                                           ! --------- !
          !                                           ! all cases !