Changeset 8812 for branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

Timestamp:

2017-11-24T17:34:50+01:00 (6 years ago)

Author:

andmirek

Message:

#1953 and #1962 enable restart read/write with XIOS in SAS

File:

• branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (1 diff)

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -422 +422 @@
       IF( lk_c1d        )   CALL     c1d_init   ! 1D column configuration
                             CALL     wad_init   ! Wetting and drying options
-                            CALL     dom_init   ! Domain
+                            CALL     dom_init("OPA")   ! Domain
       IF( ln_crs        )   CALL     crs_init   ! coarsened grid: domain initialization 
       IF( ln_nnogather )    CALL nemo_northcomms! northfold neighbour lists (must be done after the masks are defined)