Ignore:
Timestamp:
2015-06-03T15:17:49+02:00 (5 years ago)
Author:
davestorkey
Message:

Fix bug pointed out by reviewer.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r5337 r5339  
    157157         lrst_oce = .FALSE. 
    158158            IF( ln_rst_list ) THEN 
    159                nrst_lst = min(nrst_lst + 1,10) 
     159               nrst_lst = MIN(nrst_lst + 1, SIZE(nstocklist,1)) 
    160160               nitrst = nstocklist( nrst_lst ) 
    161161            ENDIF 
     
    191191         ENDIF 
    192192 
     193         clpath = TRIM(cn_ocerst_indir) 
     194         IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 
    193195         IF ( jprstlib == jprstdimg ) THEN 
    194196           ! eventually read netcdf file (monobloc)  for restarting on different number of processors 
     
    197199           IF ( llok ) THEN ; jlibalt = jpnf90  ; ELSE ; jlibalt = jprstlib ; ENDIF 
    198200         ENDIF 
    199          clpath = TRIM(cn_ocerst_outdir) 
    200          IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 
    201201         CALL iom_open( TRIM(clpath)//cn_ocerst_in, numror, kiolib = jlibalt ) 
    202202      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.