- Timestamp:
- 2020-12-01T13:17:32+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/test_12905_xios_restart/src/OCE/SBC/sbcapr.F90
r13727 r13934 148 148 ! ! ---------------------------------------- ! 149 149 ! !* Restart: read in restart file 150 IF( lroxios ) CALL iom_swap( TRIM(crxios_context) )151 150 IF( ln_rstart .AND. iom_varid( numror, 'ssh_ibb', ldstop = .FALSE. ) > 0 ) THEN 152 151 IF(lwp) WRITE(numout,*) 'sbc_apr: ssh_ibb read in the restart file' 153 CALL iom_get( numror, jpdom_auto, 'ssh_ibb', ssh_ibb , ldxios = lroxios) ! before inv. barometer ssh152 CALL iom_get( numror, jpdom_auto, 'ssh_ibb', ssh_ibb ) ! before inv. barometer ssh 154 153 ! 155 154 ELSE !* no restart: set from nit000 values … … 157 156 ssh_ibb(:,:) = ssh_ib(:,:) 158 157 ENDIF 159 IF( lroxios ) CALL iom_swap( TRIM(cxios_context) )160 158 ENDIF 161 159 ! ! ---------------------------------------- ! … … 165 163 IF(lwp) WRITE(numout,*) 'sbc_apr : ssh_ib written in ocean restart file at it= ', kt,' date= ', ndastp 166 164 IF(lwp) WRITE(numout,*) '~~~~' 167 IF( lwxios ) CALL iom_swap( cwxios_context ) 168 CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib, ldxios = lwxios ) 169 IF( lwxios ) CALL iom_swap( cxios_context ) 165 CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib ) 170 166 ENDIF 171 167 !
Note: See TracChangeset
for help on using the changeset viewer.