New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12950 for NEMO/branches/2020/dev_12905_xios_restart/src/OCE/DYN/dynspg_ts.F90 – NEMO

Ignore:
Timestamp:
2020-05-19T12:53:16+02:00 (4 years 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/DYN/dynspg_ts.F90

    r12489 r12950  
    890890      IF( TRIM(cdrw) == 'READ' ) THEN        ! Read/initialise  
    891891         !                                   ! --------------- 
     892         IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    892893         IF( ln_rstart .AND. ln_bt_fw .AND. (.NOT.l_1st_euler) ) THEN    !* Read the restart file 
    893894            CALL iom_get( numror, jpdom_autoglo, 'ub2_b'  , ub2_b  (:,:), ldxios = lrxios )    
     
    922923#endif 
    923924         ENDIF 
     925         IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    924926         ! 
    925927      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
     
    10391041      !                             ! read restart when needed 
    10401042      CALL ts_rst( nit000, 'READ' ) 
    1041       ! 
    1042       IF( lwxios ) THEN 
    1043 ! define variables in restart file when writing with XIOS 
    1044          CALL iom_set_rstw_var_active('ub2_b') 
    1045          CALL iom_set_rstw_var_active('vb2_b') 
    1046          CALL iom_set_rstw_var_active('un_bf') 
    1047          CALL iom_set_rstw_var_active('vn_bf') 
    1048          ! 
    1049          IF (.NOT.ln_bt_av) THEN 
    1050             CALL iom_set_rstw_var_active('sshbb_e') 
    1051             CALL iom_set_rstw_var_active('ubb_e') 
    1052             CALL iom_set_rstw_var_active('vbb_e') 
    1053             CALL iom_set_rstw_var_active('sshb_e') 
    1054             CALL iom_set_rstw_var_active('ub_e') 
    1055             CALL iom_set_rstw_var_active('vb_e') 
    1056          ENDIF 
    1057 #if defined key_agrif 
    1058          ! Save time integrated fluxes 
    1059          IF ( .NOT.Agrif_Root() ) THEN 
    1060             CALL iom_set_rstw_var_active('ub2_i_b') 
    1061             CALL iom_set_rstw_var_active('vb2_i_b') 
    1062          ENDIF 
    1063 #endif 
    1064       ENDIF 
    10651043      ! 
    10661044   END SUBROUTINE dyn_spg_ts_init 
Note: See TracChangeset for help on using the changeset viewer.