Ignore:
Timestamp:
2020-05-26T12:05:09+02:00 (6 months ago)
Author:
andmirek
Message:

ticket #2462: read restart with XIOS independently for each component

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ZDF/zdfgls.F90

    r12950 r12969  
    10521052         !                                   ! --------------- 
    10531053         IF( ln_rstart ) THEN                   !* Read the restart file 
    1054             IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
     1054            IF( lroxios ) CALL iom_swap( TRIM(crxios_context) ) 
    10551055            id1 = iom_varid( numror, 'en'    , ldstop = .FALSE. ) 
    10561056            id2 = iom_varid( numror, 'avt_k' , ldstop = .FALSE. ) 
     
    10591059            ! 
    10601060            IF( MIN( id1, id2, id3, id4 ) > 0 ) THEN        ! all required arrays exist 
    1061                CALL iom_get( numror, jpdom_autoglo, 'en'    , en    , ldxios = lrxios ) 
    1062                CALL iom_get( numror, jpdom_autoglo, 'avt_k' , avt_k , ldxios = lrxios ) 
    1063                CALL iom_get( numror, jpdom_autoglo, 'avm_k' , avm_k , ldxios = lrxios ) 
    1064                CALL iom_get( numror, jpdom_autoglo, 'hmxl_n', hmxl_n, ldxios = lrxios ) 
     1061               CALL iom_get( numror, jpdom_autoglo, 'en'    , en    , ldxios = lroxios ) 
     1062               CALL iom_get( numror, jpdom_autoglo, 'avt_k' , avt_k , ldxios = lroxios ) 
     1063               CALL iom_get( numror, jpdom_autoglo, 'avm_k' , avm_k , ldxios = lroxios ) 
     1064               CALL iom_get( numror, jpdom_autoglo, 'hmxl_n', hmxl_n, ldxios = lroxios ) 
    10651065            ELSE                         
    10661066               IF(lwp) WRITE(numout,*) 
     
    10701070               ! avt_k, avm_k already set to the background value in zdf_phy_init 
    10711071            ENDIF 
    1072             IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
     1072            IF( lroxios ) CALL iom_swap( TRIM(cxios_context) ) 
    10731073         ELSE                                   !* Start from rest 
    10741074            IF(lwp) WRITE(numout,*) 
Note: See TracChangeset for help on using the changeset viewer.