Changeset 8650 for branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domain.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/domain.F90 (modified) (2 diffs)

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

@@ -129 +129 @@
       CALL dom_glo                     ! global domain versus local domain
       CALL dom_nam                     ! read namelist ( namrun, namdom )
+      !
+      IF( lwxios ) THEN
+!define names for restart write and set core output (restart.F90)
+         CALL set_rst_vars(rst_wfields)
+         CALL set_rstw_core()
+      ENDIF
+      !
       CALL dom_clo( cn_cfg, nn_cfg )   ! Closed seas and lake
       CALL dom_hgr                     ! Horizontal mesh
@@ -202 +209 @@
       IF( nn_timing == 1 )   CALL timing_stop('dom_init')
       !
-      IF( lwxios ) THEN
-!define names for restart write
-         CALL set_rst_vars(rst_wfields)
-         CALL set_rstw_core()
-      ENDIF
    END SUBROUTINE dom_init