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/ZDF/zdfric.F90

    r12489 r12950  
    103103      CALL ric_rst( nit000, 'READ' )  !* read or initialize all required files 
    104104      ! 
    105       IF( lwxios ) THEN 
    106          CALL iom_set_rstw_var_active('avt_k') 
    107          CALL iom_set_rstw_var_active('avm_k') 
    108       ENDIF 
    109105   END SUBROUTINE zdf_ric_init 
    110106 
     
    210206         !           !* Read the restart file 
    211207         IF( ln_rstart ) THEN 
     208            IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    212209            id1 = iom_varid( numror, 'avt_k', ldstop = .FALSE. ) 
    213210            id2 = iom_varid( numror, 'avm_k', ldstop = .FALSE. ) 
     
    217214               CALL iom_get( numror, jpdom_autoglo, 'avm_k', avm_k, ldxios = lrxios ) 
    218215            ENDIF 
     216            IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    219217         ENDIF 
    220218         !           !* otherwise Kz already set to the background value in zdf_phy_init 
Note: See TracChangeset for help on using the changeset viewer.