Changeset 6140 for trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/SED/sedrst.F90
- Timestamp:
- 2015-12-21T12:35:23+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/SED/sedrst.F90
r5215 r6140 60 60 61 61 ALLOCATE( zdta(jpi,jpj,jpksed,jptrased), zdta1(jpi,jpj,jpksed,2), zhipor(jpoce,jpksed) ) 62 63 IF ( jprstlib == jprstdimg ) THEN64 ! eventually read netcdf file (monobloc) for restarting on different number of processors65 ! if restart_sed.nc exists, then set jlibalt to jpnf9066 INQUIRE( FILE = 'restart_sed.nc', EXIST = llok )67 IF ( llok ) THEN ; jlibalt = jpnf90 ; ELSE ; jlibalt = jprstlib ; ENDIF68 ENDIF69 62 70 63 CALL iom_open( 'restart_sed', numrsr, kiolib = jlibalt )
Note: See TracChangeset
for help on using the changeset viewer.