New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12950 for NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ZDF/zdftke.F90 – NEMO

Ignore:
Timestamp:
2020-05-19T12:53:16+02:00 (4 years 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/zdftke.F90

    r12702 r12950  
    634634      CALL tke_rst( nit000, 'READ' )      ! (en, avt_k, avm_k, dissl)  
    635635      ! 
    636       IF( lwxios ) THEN 
    637          CALL iom_set_rstw_var_active('en') 
    638          CALL iom_set_rstw_var_active('avt_k') 
    639          CALL iom_set_rstw_var_active('avm_k') 
    640          CALL iom_set_rstw_var_active('dissl') 
    641       ENDIF 
    642636   END SUBROUTINE zdf_tke_init 
    643637 
     
    665659         !                                   ! --------------- 
    666660         IF( ln_rstart ) THEN                   !* Read the restart file 
     661            IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    667662            id1 = iom_varid( numror, 'en'   , ldstop = .FALSE. ) 
    668663            id2 = iom_varid( numror, 'avt_k', ldstop = .FALSE. ) 
     
    682677               ! avt_k, avm_k already set to the background value in zdf_phy_init 
    683678            ENDIF 
     679            IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    684680         ELSE                                   !* Start from rest 
    685681            IF(lwp) WRITE(numout,*) 
Note: See TracChangeset for help on using the changeset viewer.