Changeset 8812 for branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/SAO_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/SAO_SRC/nemogcm.F90 (modified) (1 diff)

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

@@ -271 +271 @@
                             CALL     phy_cst    ! Physical constants
                             CALL     eos_init   ! Equation of state
-                            CALL     dom_init   ! Domain
+                            CALL     dom_init('SAO')   ! Domain
 
       IF( ln_nnogather )    CALL nemo_northcomms   ! Initialise the northfold neighbour lists (must be done after the masks are defined)