- Timestamp:
- 2016-11-28T17:04:10+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_rst.F90
r5341 r7351 62 62 WRITE(numout,*) 63 63 SELECT CASE ( jprstlib ) 64 CASE ( jprstdimg ) ; WRITE(numout,*) ' open ocean restart_mxl binary file: '//clname65 64 CASE DEFAULT ; WRITE(numout,*) ' open ocean restart_mxl NetCDF file: '//clname 66 65 END SELECT … … 147 146 clpath = TRIM(cn_ocerst_indir) 148 147 IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 149 150 IF ( jprstlib == jprstdimg ) THEN151 ! eventually read netcdf file (monobloc) for restarting on different number of processors152 ! if {cn_trdrst_in}.nc exists, then set jlibalt to jpnf90153 INQUIRE( FILE = TRIM(clpath)//TRIM(cn_trdrst_in)//'.nc', EXIST = llok )154 IF ( llok ) THEN ; jlibalt = jpnf90155 ELSE ; jlibalt = jprstlib156 ENDIF157 ENDIF158 159 148 CALL iom_open( TRIM(clpath)//TRIM(cn_trdrst_in), inum, kiolib = jlibalt ) 160 149
Note: See TracChangeset
for help on using the changeset viewer.