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

    r12489 r12950  
    135135      !                         !-----------------------------------! 
    136136      IF( kt == nit000 ) THEN          !==  1st time step  ==! 
     137         IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    137138         IF( ln_rstart .AND. iom_varid( numror, 'qsr_hc_b', ldstop = .FALSE. ) > 0  .AND. .NOT.l_1st_euler ) THEN    ! read in restart 
    138139            IF(lwp) WRITE(numout,*) '          nit000-1 qsr tracer content forcing field read in the restart file' 
     
    143144            qsr_hc_b(:,:,:) = 0._wp 
    144145         ENDIF 
     146         IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    145147      ELSE                             !==  Swap of qsr heat content  ==! 
    146148         z1_2 = 0.5_wp 
     
    401403      ! 
    402404      ! 1st ocean level attenuation coefficient (used in sbcssm) 
     405      IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    403406      IF( iom_varid( numror, 'fraqsr_1lev', ldstop = .FALSE. ) > 0 ) THEN 
    404407         CALL iom_get( numror, jpdom_autoglo, 'fraqsr_1lev'  , fraqsr_1lev, ldxios = lrxios  ) 
     
    406409         fraqsr_1lev(:,:) = 1._wp   ! default : no penetration 
    407410      ENDIF 
    408       ! 
    409       IF( lwxios ) THEN 
    410          CALL iom_set_rstw_var_active('qsr_hc_b') 
    411          CALL iom_set_rstw_var_active('fraqsr_1lev') 
    412       ENDIF 
     411      IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    413412      ! 
    414413   END SUBROUTINE tra_qsr_init 
Note: See TracChangeset for help on using the changeset viewer.