- Timestamp:
- 2020-05-19T12:53:16+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart/src/OCE/DYN/dynspg_ts.F90
r12489 r12950 890 890 IF( TRIM(cdrw) == 'READ' ) THEN ! Read/initialise 891 891 ! ! --------------- 892 IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 892 893 IF( ln_rstart .AND. ln_bt_fw .AND. (.NOT.l_1st_euler) ) THEN !* Read the restart file 893 894 CALL iom_get( numror, jpdom_autoglo, 'ub2_b' , ub2_b (:,:), ldxios = lrxios ) … … 922 923 #endif 923 924 ENDIF 925 IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 924 926 ! 925 927 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file … … 1039 1041 ! ! read restart when needed 1040 1042 CALL ts_rst( nit000, 'READ' ) 1041 !1042 IF( lwxios ) THEN1043 ! define variables in restart file when writing with XIOS1044 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) THEN1050 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 ENDIF1057 #if defined key_agrif1058 ! Save time integrated fluxes1059 IF ( .NOT.Agrif_Root() ) THEN1060 CALL iom_set_rstw_var_active('ub2_i_b')1061 CALL iom_set_rstw_var_active('vb2_i_b')1062 ENDIF1063 #endif1064 ENDIF1065 1043 ! 1066 1044 END SUBROUTINE dyn_spg_ts_init
Note: See TracChangeset
for help on using the changeset viewer.