- Timestamp:
- 2017-11-28T15:45:20+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r8831 r8836 219 219 IF(.NOT.lxios_set) lrxios = lrxios.AND.lxios_sini 220 220 IF( lrxios) THEN 221 crxios_context = 'nemo_rst' 222 if(.NOT.lxios_set) then 223 IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS' 221 crxios_context = 'nemo_rst' 222 IF( .NOT.lxios_set ) THEN 223 IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS' 224 CALL iom_init( crxios_context ) 225 lxios_set = .TRUE. 226 ENDIF 227 ENDIF 228 IF( TRIM(Agrif_CFixed()) /= '0' .AND. lrxios) THEN 224 229 CALL iom_init( crxios_context ) 230 IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS for AGRIF' 225 231 lxios_set = .TRUE. 226 endif227 ENDIF228 IF( TRIM(Agrif_CFixed()) /= '0' .AND. lrxios) THEN229 CALL iom_init( crxios_context )230 IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS for AGRIF'231 lxios_set = .TRUE.232 232 ENDIF 233 233 ENDIF … … 246 246 REAL(wp) :: zrdt 247 247 INTEGER :: jk 248 TYPE(xios_duration):: dtime 249 integer::ni,nj,nk 250 REAL(wp), DIMENSION(jpi, jpj, jpk) :: w3d 248 REAL(wp), DIMENSION(jpi, jpj, jpk) :: w3d 251 249 !!---------------------------------------------------------------------- 252 250
Note: See TracChangeset
for help on using the changeset viewer.