- Timestamp:
- 2020-05-22T13:51:12+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart/src/OCE/IOM/restart.F90
r12957 r12961 116 116 clpname = TRIM(Agrif_CFixed())//"_"//clname 117 117 ENDIF 118 CALL iom_init( cwxios_context, TRIM(clpath)//TRIM(clpname), .false., ld_closedef = .FALSE. ) 118 CALL iom_init( cwxios_context, TRIM(clpath)//TRIM(clpname), ld_tmppatch = .false.,& 119 ld_closedef = .FALSE. ) 119 120 CALL iom_swap( cxios_context ) 120 121 #else … … 190 191 !! the file has already been opened 191 192 !!---------------------------------------------------------------------- 192 LOGICAL :: llok193 CHARACTER(l c) :: clpath ! full path to ocean output restart file194 CHARACTER(l c+2) :: clpname ! file name including agrif prefix193 LOGICAL :: llok 194 CHARACTER(len=lc) :: clpath ! full path to ocean output restart file 195 CHARACTER(len=lc+2) :: clpname ! file name including agrif prefix 195 196 !!---------------------------------------------------------------------- 196 197 ! … … 209 210 ! can handle checking if variable is in the restart file (there will be no need to open 210 211 ! restart) 211 IF(.NOT.lxios_set)lrxios = lrxios.AND.lxios_sini212 lrxios = lrxios.AND.lxios_sini 212 213 213 214 IF( lrxios) THEN 214 215 crxios_context = 'oce_rst' 215 IF( .NOT.lxios_set ) THEN 216 IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS' 217 IF( TRIM(Agrif_CFixed()) == '0' ) THEN 218 clpname = cn_ocerst_in 219 ELSE 220 clpname = TRIM(Agrif_CFixed())//"_"//cn_ocerst_in 221 ENDIF 222 CALL iom_init( crxios_context, fname = TRIM(clpath)//TRIM(clpname), ld_tmppatch = .TRUE. ) 223 lxios_set = .TRUE. 216 IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS' 217 IF( TRIM(Agrif_CFixed()) == '0' ) THEN 218 clpname = cn_ocerst_in 219 ELSE 220 clpname = TRIM(Agrif_CFixed())//"_"//cn_ocerst_in 224 221 ENDIF 222 CALL iom_init( crxios_context, fname = TRIM(clpath)//TRIM(clpname), & 223 idfp = iom_file(numror)%nfid, ld_tmppatch = .TRUE. ) 225 224 ENDIF 226 225
Note: See TracChangeset
for help on using the changeset viewer.