Ignore:
Timestamp:
2015-06-03T14:03:57+02:00 (6 years ago)
Author:
davestorkey
Message:

Changes/fixes in response to reviewers comments.

File:
1 edited

Legend:

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

    r5312 r5337  
    5858      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
    5959      CHARACTER(LEN=50)   ::   clname   ! ocean output restart file name 
    60       CHARACTER(len=150)  ::   clpath   ! full path to ocean output restart file 
     60      CHARACTER(lc)       ::   clpath   ! full path to ocean output restart file 
    6161      !!---------------------------------------------------------------------- 
    6262      ! 
     
    157157         lrst_oce = .FALSE. 
    158158            IF( ln_rst_list ) THEN 
    159                nrst_lst = nrst_lst + 1 
     159               nrst_lst = min(nrst_lst + 1,10) 
    160160               nitrst = nstocklist( nrst_lst ) 
    161161            ENDIF 
     
    175175      !!                the file has already been opened 
    176176      !!---------------------------------------------------------------------- 
    177       INTEGER  ::   jlibalt = jprstlib 
    178       LOGICAL  ::   llok 
     177      INTEGER        ::   jlibalt = jprstlib 
     178      LOGICAL        ::   llok 
     179      CHARACTER(lc)  ::   clpath   ! full path to ocean output restart file 
    179180      !!---------------------------------------------------------------------- 
    180181      ! 
     
    196197           IF ( llok ) THEN ; jlibalt = jpnf90  ; ELSE ; jlibalt = jprstlib ; ENDIF 
    197198         ENDIF 
    198          CALL iom_open( TRIM(cn_ocerst_indir)//'/'//cn_ocerst_in, numror, kiolib = jlibalt ) 
     199         clpath = TRIM(cn_ocerst_outdir) 
     200         IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 
     201         CALL iom_open( TRIM(clpath)//cn_ocerst_in, numror, kiolib = jlibalt ) 
    199202      ENDIF 
    200203   END SUBROUTINE rst_read_open 
Note: See TracChangeset for help on using the changeset viewer.