Changeset 5251


Ignore:
Timestamp:
2015-05-01T17:04:46+02:00 (6 years ago)
Author:
davestorkey
Message:

2014 restart_functionality branch: bug fix.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

    r5250 r5251  
    7272 
    7373      ! Find a restart file. Assume iceberg restarts in same directory as ocean restarts.  
    74       clpath = TRIM(cn_ocerst_indir) 
    75       IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 
     74      cl_path = TRIM(cn_ocerst_indir) 
     75      IF( cl_path(LEN_TRIM(cl_path):) /= '/' ) cl_path = TRIM(cl_path) // '/' 
    7676      cl_filename = ' ' 
    7777      IF ( lk_mpp ) THEN 
     
    238238 
    239239      ! Assume we write iceberg restarts to same directory as ocean restarts. 
    240       clpath = TRIM(cn_ocerst_outdir) 
    241       IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 
     240      cl_path = TRIM(cn_ocerst_outdir) 
     241      IF( cl_path(LEN_TRIM(cl_path):) /= '/' ) cl_path = TRIM(cl_path) // '/' 
    242242      IF( lk_mpp ) THEN 
    243243         WRITE(cl_filename,'("icebergs_",I8.8,"_restart_",I4.4,".nc")') kt, narea-1 
Note: See TracChangeset for help on using the changeset viewer.