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

    r12489 r12950  
    108108            CALL ctl_warn( 'sbc_apr: use inverse barometer ssh at open boundary ONLY requires ln_apr_dyn=T' ) 
    109109      ! 
    110       IF( lwxios ) THEN 
    111          CALL iom_set_rstw_var_active('ssh_ibb') 
    112       ENDIF 
    113110   END SUBROUTINE sbc_apr_init 
    114111 
     
    152149         !                                      ! ---------------------------------------- ! 
    153150         !                                            !* Restart: read in restart file 
     151         IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    154152         IF( ln_rstart .AND. iom_varid( numror, 'ssh_ibb', ldstop = .FALSE. ) > 0 ) THEN  
    155153            IF(lwp) WRITE(numout,*) 'sbc_apr:   ssh_ibb read in the restart file' 
     
    160158            ssh_ibb(:,:) = ssh_ib(:,:) 
    161159         ENDIF 
     160         IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    162161      ENDIF 
    163162      !                                         ! ---------------------------------------- ! 
Note: See TracChangeset for help on using the changeset viewer.