Ignore:
Timestamp:
2020-05-19T12:53:16+02:00 (5 months ago)
Author:
andmirek
Message:

Ticket #2462: new XIOS restart read/write interfaces

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_12905_xios_restart/src/OCE/IOM/restart.F90

    r12489 r12950  
    116116                  clpname = TRIM(Agrif_CFixed())//"_"//clname    
    117117               ENDIF 
    118                CALL iom_init( cwxios_context, TRIM(clpath)//TRIM(clpname), .false. ) 
    119                CALL xios_update_calendar(nitrst) 
     118               CALL iom_init( cwxios_context, TRIM(clpath)//TRIM(clpname), .false., ld_closedef = .FALSE. ) 
    120119               CALL iom_swap(      cxios_context          ) 
    121120#else 
     
    214213             IF( .NOT.lxios_set ) THEN 
    215214                 IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS' 
    216                  CALL iom_init( crxios_context, ld_tmppatch = .false. ) 
     215                 CALL iom_init( crxios_context, ld_tmppatch = .TRUE. ) 
    217216                 lxios_set = .TRUE. 
    218217             ENDIF 
    219218         ENDIF 
    220219         IF( TRIM(Agrif_CFixed()) /= '0' .AND. lrxios) THEN 
    221              CALL iom_init( crxios_context, ld_tmppatch = .false. ) 
     220             CALL iom_init( crxios_context, ld_tmppatch = .TRUE. ) 
    222221             IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS for AGRIF' 
    223222             lxios_set = .TRUE. 
     
    245244 
    246245      ! Check dynamics and tracer time-step consistency and force Euler restart if changed 
     246      IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    247247      IF( iom_varid( numror, 'rdt', ldstop = .FALSE. ) > 0 )   THEN 
    248248         CALL iom_get( numror, 'rdt', zrdt, ldxios = lrxios ) 
     
    268268         RETURN  
    269269      ENDIF   
    270        
     270 
    271271      IF( iom_varid( numror, 'ub', ldstop = .FALSE. ) > 0 ) THEN 
    272272         CALL iom_get( numror, jpdom_autoglo, 'ub'     , uu(:,:,:       ,Kbb), ldxios = lrxios )   ! before fields 
     
    289289         CALL eos( ts(:,:,:,:,Kmm), rhd, rhop, gdept(:,:,:,Kmm) )    
    290290      ENDIF 
     291      IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    291292      ! 
    292293      IF( l_1st_euler ) THEN                                  ! Euler restart  
Note: See TracChangeset for help on using the changeset viewer.