- Timestamp:
- 2017-11-23T13:02:23+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/DOM/iscplrst.F90
r8668 r8793 25 25 USE iscplini ! ice sheet coupling: initialisation 26 26 USE iscplhsb ! ice sheet coupling: conservation 27 USE iom_def, ONLY : l xios_read27 USE iom_def, ONLY : lrxios 28 28 29 29 IMPLICIT NONE … … 65 65 66 66 !! get restart variable 67 CALL iom_get( numror, jpdom_autoglo, 'tmask' , ztmask_b, ldxios = l xios_read) ! need to extrapolate T/S68 CALL iom_get( numror, jpdom_autoglo, 'umask' , zumask_b, ldxios = l xios_read) ! need to correct barotropic velocity69 CALL iom_get( numror, jpdom_autoglo, 'vmask' , zvmask_b, ldxios = l xios_read) ! need to correct barotropic velocity70 CALL iom_get( numror, jpdom_autoglo, 'smask' , zsmask_b, ldxios = l xios_read) ! need to correct barotropic velocity71 CALL iom_get( numror, jpdom_autoglo, 'e3t_n' , ze3t_b(:,:,:), ldxios = l xios_read) ! need to compute temperature correction72 CALL iom_get( numror, jpdom_autoglo, 'e3u_n' , ze3u_b(:,:,:), ldxios = l xios_read) ! need to correct barotropic velocity73 CALL iom_get( numror, jpdom_autoglo, 'e3v_n' , ze3v_b(:,:,:), ldxios = l xios_read) ! need to correct barotropic velocity74 CALL iom_get( numror, jpdom_autoglo, 'gdepw_n', zdepw_b(:,:,:), ldxios = l xios_read) ! need to interpol vertical profile (vvl)67 CALL iom_get( numror, jpdom_autoglo, 'tmask' , ztmask_b, ldxios = lrxios ) ! need to extrapolate T/S 68 CALL iom_get( numror, jpdom_autoglo, 'umask' , zumask_b, ldxios = lrxios ) ! need to correct barotropic velocity 69 CALL iom_get( numror, jpdom_autoglo, 'vmask' , zvmask_b, ldxios = lrxios ) ! need to correct barotropic velocity 70 CALL iom_get( numror, jpdom_autoglo, 'smask' , zsmask_b, ldxios = lrxios ) ! need to correct barotropic velocity 71 CALL iom_get( numror, jpdom_autoglo, 'e3t_n' , ze3t_b(:,:,:), ldxios = lrxios ) ! need to compute temperature correction 72 CALL iom_get( numror, jpdom_autoglo, 'e3u_n' , ze3u_b(:,:,:), ldxios = lrxios ) ! need to correct barotropic velocity 73 CALL iom_get( numror, jpdom_autoglo, 'e3v_n' , ze3v_b(:,:,:), ldxios = lrxios ) ! need to correct barotropic velocity 74 CALL iom_get( numror, jpdom_autoglo, 'gdepw_n', zdepw_b(:,:,:), ldxios = lrxios ) ! need to interpol vertical profile (vvl) 75 75 76 76 !! read namelist
Note: See TracChangeset
for help on using the changeset viewer.