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/zdfgls.F90

    r12489 r12950  
    10251025      CALL gls_rst( nit000, 'READ' )      ! (en, avt_k, avm_k, hmxl_n) 
    10261026      ! 
    1027       IF( lwxios ) THEN 
    1028          CALL iom_set_rstw_var_active('en') 
    1029          CALL iom_set_rstw_var_active('avt_k') 
    1030          CALL iom_set_rstw_var_active('avm_k') 
    1031          CALL iom_set_rstw_var_active('hmxl_n') 
    1032       ENDIF 
    1033       ! 
    10341027   END SUBROUTINE zdf_gls_init 
    10351028 
     
    10591052         !                                   ! --------------- 
    10601053         IF( ln_rstart ) THEN                   !* Read the restart file 
     1054            IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    10611055            id1 = iom_varid( numror, 'en'    , ldstop = .FALSE. ) 
    10621056            id2 = iom_varid( numror, 'avt_k' , ldstop = .FALSE. ) 
     
    10761070               ! avt_k, avm_k already set to the background value in zdf_phy_init 
    10771071            ENDIF 
     1072            IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    10781073         ELSE                                   !* Start from rest 
    10791074            IF(lwp) WRITE(numout,*) 
Note: See TracChangeset for help on using the changeset viewer.