Changeset 8800 for branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
- Timestamp:
- 2017-11-23T16:48:37+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r7831 r8800 56 56 USE asminc ! Assimilation increment 57 57 #endif 58 USE iom_def, ONLY : lxios_read 58 59 59 60 … … 1198 1199 ! 1199 1200 IF( TRIM(cdrw) == 'READ' ) THEN 1200 CALL iom_get( numror, jpdom_autoglo, 'ub2_b' , ub2_b (:,:) )1201 CALL iom_get( numror, jpdom_autoglo, 'vb2_b' , vb2_b (:,:) )1201 CALL iom_get( numror, jpdom_autoglo, 'ub2_b' , ub2_b (:,:), ldxios = lxios_read ) 1202 CALL iom_get( numror, jpdom_autoglo, 'vb2_b' , vb2_b (:,:), ldxios = lxios_read ) 1202 1203 IF( .NOT.ln_bt_av ) THEN 1203 CALL iom_get( numror, jpdom_autoglo, 'sshbb_e' , sshbb_e(:,:) )1204 CALL iom_get( numror, jpdom_autoglo, 'ubb_e' , ubb_e(:,:) )1205 CALL iom_get( numror, jpdom_autoglo, 'vbb_e' , vbb_e(:,:) )1206 CALL iom_get( numror, jpdom_autoglo, 'sshb_e' , sshb_e(:,:) )1207 CALL iom_get( numror, jpdom_autoglo, 'ub_e' , ub_e(:,:) )1208 CALL iom_get( numror, jpdom_autoglo, 'vb_e' , vb_e(:,:) )1204 CALL iom_get( numror, jpdom_autoglo, 'sshbb_e' , sshbb_e(:,:), ldxios = lxios_read ) 1205 CALL iom_get( numror, jpdom_autoglo, 'ubb_e' , ubb_e(:,:), ldxios = lxios_read ) 1206 CALL iom_get( numror, jpdom_autoglo, 'vbb_e' , vbb_e(:,:), ldxios = lxios_read ) 1207 CALL iom_get( numror, jpdom_autoglo, 'sshb_e' , sshb_e(:,:), ldxios = lxios_read ) 1208 CALL iom_get( numror, jpdom_autoglo, 'ub_e' , ub_e(:,:), ldxios = lxios_read ) 1209 CALL iom_get( numror, jpdom_autoglo, 'vb_e' , vb_e(:,:), ldxios = lxios_read ) 1209 1210 ENDIF 1210 1211 #if defined key_agrif 1211 1212 ! Read time integrated fluxes 1212 1213 IF ( .NOT.Agrif_Root() ) THEN 1213 CALL iom_get( numror, jpdom_autoglo, 'ub2_i_b' , ub2_i_b(:,:) )1214 CALL iom_get( numror, jpdom_autoglo, 'vb2_i_b' , vb2_i_b(:,:) )1214 CALL iom_get( numror, jpdom_autoglo, 'ub2_i_b' , ub2_i_b(:,:), ldxios = lxios_read ) 1215 CALL iom_get( numror, jpdom_autoglo, 'vb2_i_b' , vb2_i_b(:,:), ldxios = lxios_read ) 1215 1216 ENDIF 1216 1217 #endif
Note: See TracChangeset
for help on using the changeset viewer.