Ignore:
Timestamp:
2020-05-27T09:35:03+02:00 (6 months ago)
Author:
andmirek
Message:

Ticket #2462 read restart with XIOS in SAS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_12905_xios_restart/src/OCE/DOM/domain.F90

    r12950 r12977  
    5858CONTAINS 
    5959 
    60    SUBROUTINE dom_init( Kbb, Kmm, Kaa, cdstr ) 
     60   SUBROUTINE dom_init( Kbb, Kmm, Kaa ) 
    6161      !!---------------------------------------------------------------------- 
    6262      !!                  ***  ROUTINE dom_init  *** 
     
    7474      !!---------------------------------------------------------------------- 
    7575      INTEGER          , INTENT(in) :: Kbb, Kmm, Kaa          ! ocean time level indices 
    76       CHARACTER (len=*), INTENT(in) :: cdstr                  ! model: NEMO or SAS. Determines core restart variables 
    7776      ! 
    7877      INTEGER ::   ji, jj, jk, ik   ! dummy loop indices 
     
    122121      CALL dom_glo                     ! global domain versus local domain 
    123122      CALL dom_nam                     ! read namelist ( namrun, namdom ) 
    124       ! 
    125 !reset namelist for SAS 
    126       IF(cdstr == 'SAS') THEN 
    127          IF(lrxios) THEN 
    128                IF(lwp) write(numout,*) 'Disable reading restart file using XIOS for SAS' 
    129                lrxios = .FALSE. 
    130          ENDIF 
    131       ENDIF 
    132123      ! 
    133124      CALL dom_hgr                      ! Horizontal mesh 
Note: See TracChangeset for help on using the changeset viewer.