Changeset 5339 for branches/2014/dev_r4650_UKMO11_restart_functionality

Timestamp:

2015-06-03T15:17:49+02:00 (9 years ago)

Author:

davestorkey

Message:

Fix bug pointed out by reviewer.

File:

• branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 (modified) (3 diffs)

branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

@@ -157 +157 @@
          lrst_oce = .FALSE.
             IF( ln_rst_list ) THEN
-               nrst_lst = min(nrst_lst + 1,10)
+               nrst_lst = MIN(nrst_lst + 1, SIZE(nstocklist,1))
                nitrst = nstocklist( nrst_lst )
             ENDIF
@@ -191 +191 @@
          ENDIF
 
+         clpath = TRIM(cn_ocerst_indir)
+         IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/'
          IF ( jprstlib == jprstdimg ) THEN
            ! eventually read netcdf file (monobloc)  for restarting on different number of processors
@@ -197 +199 @@
            IF ( llok ) THEN ; jlibalt = jpnf90  ; ELSE ; jlibalt = jprstlib ; ENDIF
          ENDIF
-         clpath = TRIM(cn_ocerst_outdir)
-         IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/'
          CALL iom_open( TRIM(clpath)//cn_ocerst_in, numror, kiolib = jlibalt )
       ENDIF