Changeset 12977 for NEMO/branches/2020/dev_12905_xios_restart/src/OCE/DOM/domain.F90

Timestamp:

2020-05-27T09:35:03+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2462 read restart with XIOS in SAS

File:

• NEMO/branches/2020/dev_12905_xios_restart/src/OCE/DOM/domain.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_12905_xios_restart/src/OCE/DOM/domain.F90

@@ -58 +58 @@
 CONTAINS
 
-   SUBROUTINE dom_init( Kbb, Kmm, Kaa, cdstr )
+   SUBROUTINE dom_init( Kbb, Kmm, Kaa )
       !!----------------------------------------------------------------------
       !!                  ***  ROUTINE dom_init  ***
@@ -74 +74 @@
       !!----------------------------------------------------------------------
       INTEGER          , INTENT(in) :: Kbb, Kmm, Kaa          ! ocean time level indices
-      CHARACTER (len=*), INTENT(in) :: cdstr                  ! model: NEMO or SAS. Determines core restart variables
       !
       INTEGER ::   ji, jj, jk, ik   ! dummy loop indices
@@ -122 +121 @@
       CALL dom_glo                     ! global domain versus local domain
       CALL dom_nam                     ! read namelist ( namrun, namdom )
-      !
-!reset namelist for SAS
-      IF(cdstr == 'SAS') THEN
-         IF(lrxios) THEN
-               IF(lwp) write(numout,*) 'Disable reading restart file using XIOS for SAS'
-               lrxios = .FALSE.
-         ENDIF
-      ENDIF
       !
       CALL dom_hgr                      ! Horizontal mesh