- Timestamp:
- 2019-08-06T15:16:49+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/OCE/DOM/iscplrst.F90
r10425 r11405 58 58 ! 59 59 ! ! get restart variable 60 IF(lrxios) CALL iom_swap( TRIM(crxios_context) ) 60 61 CALL iom_get( numror, jpdom_autoglo, 'tmask' , ztmask_b, ldxios = lrxios ) ! need to extrapolate T/S 61 62 CALL iom_get( numror, jpdom_autoglo, 'umask' , zumask_b, ldxios = lrxios ) ! need to correct barotropic velocity … … 66 67 CALL iom_get( numror, jpdom_autoglo, 'e3v_n' , ze3v_b(:,:,:), ldxios = lrxios ) ! need to correct barotropic velocity 67 68 CALL iom_get( numror, jpdom_autoglo, 'gdepw_n', zdepw_b(:,:,:), ldxios = lrxios ) ! need to interpol vertical profile (vvl) 69 IF(lrxios) CALL iom_swap( TRIM(cxios_context) ) 68 70 ! 69 71 CALL iscpl_init() ! read namelist
Note: See TracChangeset
for help on using the changeset viewer.