Changeset 5251 for branches/2014

Timestamp:

2015-05-01T17:04:46+02:00 (9 years ago)

Author:

davestorkey

Message:

2014 restart_functionality branch: bug fix.

File:

• branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90 (modified) (2 diffs)

branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

@@ -72 +72 @@
 
       ! Find a restart file. Assume iceberg restarts in same directory as ocean restarts. 
-      clpath = TRIM(cn_ocerst_indir)
-      IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/'
+      cl_path = TRIM(cn_ocerst_indir)
+      IF( cl_path(LEN_TRIM(cl_path):) /= '/' ) cl_path = TRIM(cl_path) // '/'
       cl_filename = ' '
       IF ( lk_mpp ) THEN
@@ -238 +238 @@
 
       ! Assume we write iceberg restarts to same directory as ocean restarts.
-      clpath = TRIM(cn_ocerst_outdir)
-      IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/'
+      cl_path = TRIM(cn_ocerst_outdir)
+      IF( cl_path(LEN_TRIM(cl_path):) /= '/' ) cl_path = TRIM(cl_path) // '/'
       IF( lk_mpp ) THEN
          WRITE(cl_filename,'("icebergs_",I8.8,"_restart_",I4.4,".nc")') kt, narea-1