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/TRA/trasbc.F90

    r12489 r12950  
    106106      !                             !==  Set before sbc tracer content fields  ==! 
    107107      IF( kt == nit000 ) THEN             !* 1st time-step 
     108         IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    108109         IF( ln_rstart .AND.    &               ! Restart: read in restart file 
    109110              & iom_varid( numror, 'sbc_hc_b', ldstop = .FALSE. ) > 0 ) THEN 
     
    118119            sbc_tsc_b(:,:,:) = 0._wp 
    119120         ENDIF 
     121         IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    120122      ELSE                                !* other time-steps: swap of forcing fields 
    121123         zfact = 0.5_wp 
Note: See TracChangeset for help on using the changeset viewer.