- Timestamp:
- 2017-04-18T15:42:46+02:00 (7 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/DYN
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90
r7923 r7924 51 51 USE agrif_opa_interp 52 52 #endif 53 USE iom_def, ONLY : lxios_read 53 54 54 55 IMPLICIT NONE … … 395 396 ! Caution : extra-hallow 396 397 ! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 397 CALL iom_get( numror, jpdom_autoglo, 'gcx' , gcx (1:jpi,1:jpj) )398 CALL iom_get( numror, jpdom_autoglo, 'gcxb', gcxb(1:jpi,1:jpj) )398 CALL iom_get( numror, jpdom_autoglo, 'gcx' , gcx (1:jpi,1:jpj), lrxios = lxios_read ) ! make sure domain is fine!!!! 399 CALL iom_get( numror, jpdom_autoglo, 'gcxb', gcxb(1:jpi,1:jpj), lrxios = lxios_read ) ! make sure domain is fine!!!! 399 400 IF( neuler == 0 ) gcxb(:,:) = gcx (:,:) 400 401 ELSE -
branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r6487 r7924 48 48 USE asminc ! Assimilation increment 49 49 #endif 50 USE iom_def, ONLY : lxios_read 50 51 51 52 IMPLICIT NONE … … 1019 1020 ! 1020 1021 IF( TRIM(cdrw) == 'READ' ) THEN 1021 CALL iom_get( numror, jpdom_autoglo, 'ub2_b' , ub2_b (:,:) )1022 CALL iom_get( numror, jpdom_autoglo, 'vb2_b' , vb2_b (:,:) )1022 CALL iom_get( numror, jpdom_autoglo, 'ub2_b' , ub2_b (:,:), lrxios = lxios_read ) 1023 CALL iom_get( numror, jpdom_autoglo, 'vb2_b' , vb2_b (:,:), lrxios = lxios_read ) 1023 1024 IF( .NOT.ln_bt_av ) THEN 1024 CALL iom_get( numror, jpdom_autoglo, 'sshbb_e' , sshbb_e(:,:) )1025 CALL iom_get( numror, jpdom_autoglo, 'ubb_e' , ubb_e(:,:) )1026 CALL iom_get( numror, jpdom_autoglo, 'vbb_e' , vbb_e(:,:) )1027 CALL iom_get( numror, jpdom_autoglo, 'sshb_e' , sshb_e(:,:) )1028 CALL iom_get( numror, jpdom_autoglo, 'ub_e' , ub_e(:,:) )1029 CALL iom_get( numror, jpdom_autoglo, 'vb_e' , vb_e(:,:) )1025 CALL iom_get( numror, jpdom_autoglo, 'sshbb_e' , sshbb_e(:,:), lrxios = lxios_read ) 1026 CALL iom_get( numror, jpdom_autoglo, 'ubb_e' , ubb_e(:,:), lrxios = lxios_read ) 1027 CALL iom_get( numror, jpdom_autoglo, 'vbb_e' , vbb_e(:,:), lrxios = lxios_read ) 1028 CALL iom_get( numror, jpdom_autoglo, 'sshb_e' , sshb_e(:,:), lrxios = lxios_read ) 1029 CALL iom_get( numror, jpdom_autoglo, 'ub_e' , ub_e(:,:), lrxios = lxios_read ) 1030 CALL iom_get( numror, jpdom_autoglo, 'vb_e' , vb_e(:,:), lrxios = lxios_read ) 1030 1031 ENDIF 1031 1032 #if defined key_agrif
Note: See TracChangeset
for help on using the changeset viewer.