- Timestamp:
- 2017-10-26T13:15:54+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r8661 r8662 1218 1218 ! 1219 1219 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN 1220 IF( lwxios ) CALL iom_swap( wxios_context )1221 CALL iom_rstput( kt, nitrst, numrow, 'ub2_b' , ub2_b (:,:), l xios = lwxios )1222 CALL iom_rstput( kt, nitrst, numrow, 'vb2_b' , vb2_b (:,:), l xios = lwxios )1220 IF( lwxios ) CALL iom_swap( cwxios_context ) 1221 CALL iom_rstput( kt, nitrst, numrow, 'ub2_b' , ub2_b (:,:), ldxios = lwxios ) 1222 CALL iom_rstput( kt, nitrst, numrow, 'vb2_b' , vb2_b (:,:), ldxios = lwxios ) 1223 1223 ! 1224 1224 IF (.NOT.ln_bt_av) THEN 1225 CALL iom_rstput( kt, nitrst, numrow, 'sshbb_e' , sshbb_e(:,:), l xios = lwxios )1226 CALL iom_rstput( kt, nitrst, numrow, 'ubb_e' , ubb_e(:,:), l xios = lwxios )1227 CALL iom_rstput( kt, nitrst, numrow, 'vbb_e' , vbb_e(:,:), l xios = lwxios )1228 CALL iom_rstput( kt, nitrst, numrow, 'sshb_e' , sshb_e(:,:), l xios = lwxios )1229 CALL iom_rstput( kt, nitrst, numrow, 'ub_e' , ub_e(:,:), l xios = lwxios )1230 CALL iom_rstput( kt, nitrst, numrow, 'vb_e' , vb_e(:,:), l xios = lwxios )1225 CALL iom_rstput( kt, nitrst, numrow, 'sshbb_e' , sshbb_e(:,:), ldxios = lwxios ) 1226 CALL iom_rstput( kt, nitrst, numrow, 'ubb_e' , ubb_e(:,:), ldxios = lwxios ) 1227 CALL iom_rstput( kt, nitrst, numrow, 'vbb_e' , vbb_e(:,:), ldxios = lwxios ) 1228 CALL iom_rstput( kt, nitrst, numrow, 'sshb_e' , sshb_e(:,:), ldxios = lwxios ) 1229 CALL iom_rstput( kt, nitrst, numrow, 'ub_e' , ub_e(:,:), ldxios = lwxios ) 1230 CALL iom_rstput( kt, nitrst, numrow, 'vb_e' , vb_e(:,:), ldxios = lwxios ) 1231 1231 ENDIF 1232 1232 #if defined key_agrif 1233 1233 ! Save time integrated fluxes 1234 1234 IF ( .NOT.Agrif_Root() ) THEN 1235 CALL iom_rstput( kt, nitrst, numrow, 'ub2_i_b' , ub2_i_b(:,:), l xios = lwxios )1236 CALL iom_rstput( kt, nitrst, numrow, 'vb2_i_b' , vb2_i_b(:,:), l xios = lwxios )1235 CALL iom_rstput( kt, nitrst, numrow, 'ub2_i_b' , ub2_i_b(:,:), ldxios = lwxios ) 1236 CALL iom_rstput( kt, nitrst, numrow, 'vb2_i_b' , vb2_i_b(:,:), ldxios = lwxios ) 1237 1237 ENDIF 1238 1238 #endif
Note: See TracChangeset
for help on using the changeset viewer.