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/DIA/diahsb.F90

    r12489 r12950  
    262262            IF(lwp) WRITE(numout,*) '   dia_hsb_rst : read hsb restart at it= ', kt,' date= ', ndastp 
    263263            IF(lwp) WRITE(numout,*) 
     264            IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    264265            CALL iom_get( numror, 'frc_v', frc_v, ldxios = lrxios ) 
    265266            CALL iom_get( numror, 'frc_t', frc_t, ldxios = lrxios ) 
     
    279280               CALL iom_get( numror, jpdom_autoglo, 'ssh_sc_loc_ini', ssh_sc_loc_ini, ldxios = lrxios ) 
    280281            ENDIF 
     282            IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    281283         ELSE 
    282284            IF(lwp) WRITE(numout,*) 
     
    380382      IF( .NOT. ln_diahsb )   RETURN 
    381383 
    382       IF(lwxios) THEN 
    383 ! define variables in restart file when writing with XIOS 
    384         CALL iom_set_rstw_var_active('frc_v') 
    385         CALL iom_set_rstw_var_active('frc_t') 
    386         CALL iom_set_rstw_var_active('frc_s') 
    387         CALL iom_set_rstw_var_active('surf_ini') 
    388         CALL iom_set_rstw_var_active('ssh_ini') 
    389         CALL iom_set_rstw_var_active('e3t_ini') 
    390         CALL iom_set_rstw_var_active('hc_loc_ini') 
    391         CALL iom_set_rstw_var_active('sc_loc_ini') 
    392         IF( ln_linssh ) THEN 
    393            CALL iom_set_rstw_var_active('ssh_hc_loc_ini') 
    394            CALL iom_set_rstw_var_active('ssh_sc_loc_ini') 
    395            CALL iom_set_rstw_var_active('frc_wn_t') 
    396            CALL iom_set_rstw_var_active('frc_wn_s') 
    397         ENDIF 
    398       ENDIF 
    399384      ! ------------------- ! 
    400385      ! 1 - Allocate memory ! 
Note: See TracChangeset for help on using the changeset viewer.