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 11837 for NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/TRA/traqsr.F90 – NEMO

Ignore:
Timestamp:
2019-10-30T15:10:36+01:00 (4 years ago)
Author:
andmirek
Message:

ticket #2323 read SI3 restart with XIOS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/TRA/traqsr.F90

    r11536 r11837  
    137137            IF(lwp) WRITE(numout,*) '          nit000-1 qsr tracer content forcing field read in the restart file' 
    138138            z1_2 = 0.5_wp 
     139            IF(lrxios) CALL iom_swap(crxios_context) 
    139140            CALL iom_get( numror, jpdom_autoglo, 'qsr_hc_b', qsr_hc_b, ldxios = lrxios )   ! before heat content trend due to Qsr flux 
     141            IF(lrxios) CALL iom_swap(cxios_context) 
    140142         ELSE                                           ! No restart or restart not found: Euler forward time stepping 
    141143            z1_2 = 1._wp 
     
    423425      ! 1st ocean level attenuation coefficient (used in sbcssm) 
    424426      IF( iom_varid( numror, 'fraqsr_1lev', ldstop = .FALSE. ) > 0 ) THEN 
     427         IF(lrxios) CALL iom_swap(crxios_context) 
    425428         CALL iom_get( numror, jpdom_autoglo, 'fraqsr_1lev'  , fraqsr_1lev, ldxios = lrxios  ) 
     429         IF(lrxios) CALL iom_swap(cxios_context) 
    426430      ELSE 
    427431         fraqsr_1lev(:,:) = 1._wp   ! default : no penetration 
     
    429433      ! 
    430434      IF( lwxios ) THEN 
    431          CALL iom_set_rstw_var_active('qsr_hc_b') 
    432          CALL iom_set_rstw_var_active('fraqsr_1lev') 
     435         CALL iom_set_rstw_var_active(rst_wfields, 'qsr_hc_b') 
     436         CALL iom_set_rstw_var_active(rst_wfields, 'fraqsr_1lev') 
    433437      ENDIF 
    434438      ! 
Note: See TracChangeset for help on using the changeset viewer.