- Timestamp:
- 2017-10-17T14:31:49+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r7831 r8630 56 56 USE asminc ! Assimilation increment 57 57 #endif 58 USE iom_def, ONLY : lwxios 58 59 59 60 … … 1217 1218 ! 1218 1219 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN 1219 CALL iom_rstput( kt, nitrst, numrow, 'ub2_b' , ub2_b (:,:) ) 1220 CALL iom_rstput( kt, nitrst, numrow, 'vb2_b' , vb2_b (:,:) ) 1220 IF( lwxios ) CALL iom_swap( wxios_context ) 1221 CALL iom_rstput( kt, nitrst, numrow, 'ub2_b' , ub2_b (:,:), lxios = lwxios ) 1222 CALL iom_rstput( kt, nitrst, numrow, 'vb2_b' , vb2_b (:,:), lxios = lwxios ) 1221 1223 ! 1222 1224 IF (.NOT.ln_bt_av) THEN 1223 CALL iom_rstput( kt, nitrst, numrow, 'sshbb_e' , sshbb_e(:,:) )1224 CALL iom_rstput( kt, nitrst, numrow, 'ubb_e' , ubb_e(:,:) )1225 CALL iom_rstput( kt, nitrst, numrow, 'vbb_e' , vbb_e(:,:) )1226 CALL iom_rstput( kt, nitrst, numrow, 'sshb_e' , sshb_e(:,:) )1227 CALL iom_rstput( kt, nitrst, numrow, 'ub_e' , ub_e(:,:) )1228 CALL iom_rstput( kt, nitrst, numrow, 'vb_e' , vb_e(:,:) )1225 CALL iom_rstput( kt, nitrst, numrow, 'sshbb_e' , sshbb_e(:,:), lxios = lwxios ) 1226 CALL iom_rstput( kt, nitrst, numrow, 'ubb_e' , ubb_e(:,:), lxios = lwxios ) 1227 CALL iom_rstput( kt, nitrst, numrow, 'vbb_e' , vbb_e(:,:), lxios = lwxios ) 1228 CALL iom_rstput( kt, nitrst, numrow, 'sshb_e' , sshb_e(:,:), lxios = lwxios ) 1229 CALL iom_rstput( kt, nitrst, numrow, 'ub_e' , ub_e(:,:), lxios = lwxios ) 1230 CALL iom_rstput( kt, nitrst, numrow, 'vb_e' , vb_e(:,:), lxios = lwxios ) 1229 1231 ENDIF 1230 1232 #if defined key_agrif 1231 1233 ! Save time integrated fluxes 1232 1234 IF ( .NOT.Agrif_Root() ) THEN 1233 CALL iom_rstput( kt, nitrst, numrow, 'ub2_i_b' , ub2_i_b(:,:) )1234 CALL iom_rstput( kt, nitrst, numrow, 'vb2_i_b' , vb2_i_b(:,:) )1235 CALL iom_rstput( kt, nitrst, numrow, 'ub2_i_b' , ub2_i_b(:,:), lxios = lwxios ) 1236 CALL iom_rstput( kt, nitrst, numrow, 'vb2_i_b' , vb2_i_b(:,:), lxios = lwxios ) 1235 1237 ENDIF 1236 1238 #endif 1239 IF( lwxios ) CALL iom_swap( cxios_context ) 1237 1240 ENDIF 1238 1241 !
Note: See TracChangeset
for help on using the changeset viewer.