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/ZDF/zdfosm.F90

    r12489 r12950  
    14241424     ghamv(:,:,:) = 0. 
    14251425     ! 
    1426      IF( lwxios ) THEN 
    1427         CALL iom_set_rstw_var_active('wn') 
    1428         CALL iom_set_rstw_var_active('hbl') 
    1429         CALL iom_set_rstw_var_active('hbli') 
    1430      ENDIF 
    14311426   END SUBROUTINE zdf_osm_init 
    14321427 
     
    14591454     !!----------------------------------------------------------------------------- 
    14601455     IF( TRIM(cdrw) == 'READ'.AND. ln_rstart) THEN 
     1456        IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    14611457        id1 = iom_varid( numror, 'wn'   , ldstop = .FALSE. ) 
    14621458        IF( id1 > 0 ) THEN                       ! 'wn' exists; read 
     
    14731469           CALL iom_get( numror, jpdom_autoglo, 'hbli', hbli, ldxios = lrxios  ) 
    14741470           WRITE(numout,*) ' ===>>>> :  hbl & hbli read from restart file' 
     1471           IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    14751472           RETURN 
    14761473        ELSE                      ! 'hbl' & 'hbli' not in restart file, recalculate 
    14771474           WRITE(numout,*) ' ===>>>> : previous run without osmosis scheme, hbl computed from stratification' 
    14781475        END IF 
     1476        IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    14791477     END IF 
    14801478 
Note: See TracChangeset for help on using the changeset viewer.