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/SBC/sbcrnf.F90

    r12489 r12950  
    156156      IF( kt == nit000 ) THEN                          !   set the forcing field at nit000 - 1    ! 
    157157         !                                             ! ---------------------------------------- ! 
     158         IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    158159         IF( ln_rstart .AND.    &                               !* Restart: read in restart file 
    159160            & iom_varid( numror, 'rnf_b', ldstop = .FALSE. ) > 0 ) THEN 
     
    167168            rnf_tsc_b(:,:,:) = rnf_tsc(:,:,:) 
    168169         ENDIF 
     170         IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    169171      ENDIF 
    170172      !                                                ! ---------------------------------------- ! 
     
    479481      ENDIF 
    480482      ! 
    481       IF( lwxios ) THEN 
    482          CALL iom_set_rstw_var_active('rnf_b') 
    483          CALL iom_set_rstw_var_active('rnf_hc_b') 
    484          CALL iom_set_rstw_var_active('rnf_sc_b') 
    485       ENDIF 
    486  
    487483   END SUBROUTINE sbc_rnf_init 
    488484 
Note: See TracChangeset for help on using the changeset viewer.