- Timestamp:
- 2015-05-18T17:19:50+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/LIM_SRC_2/limrst_2.F90
r2528 r5282 67 67 WRITE(numout,*) 68 68 SELECT CASE ( jprstlib ) 69 CASE ( jprstdimg ) ; WRITE(numout,*) ' open ice restart binary file: '//clname70 69 CASE DEFAULT ; WRITE(numout,*) ' open ice restart NetCDF file: '//clname 71 70 END SELECT … … 185 184 ENDIF 186 185 187 IF ( jprstlib == jprstdimg ) THEN188 ! eventually read netcdf file (monobloc) for restarting on different number of processors189 ! if {cn_icerst_in}.nc exists, then set jlibalt to jpnf90190 INQUIRE( FILE = TRIM(cn_icerst_in)//'.nc', EXIST = llok )191 IF ( llok ) THEN ; jlibalt = jpnf90 ; ELSE ; jlibalt = jprstlib ; ENDIF192 ENDIF193 194 186 CALL iom_open ( cn_icerst_in, numrir, kiolib = jlibalt ) 195 187
Note: See TracChangeset
for help on using the changeset viewer.