Changeset 7023 for branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

Timestamp:

2016-10-12T16:10:13+02:00 (8 years ago)

Author:

deazer

Message:

Include update for restart date labelling for rose cycling.

File:

• branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90 (modified) (2 diffs)

branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

@@ -69 +69 @@
       !! namelist variables
       !!-------------------
-      CHARACTER(len=80)                         ::   filtide             !: Filename root for tidal input files
+      CHARACTER(len=180)                        ::   filtide             !: Filename root for tidal input files
       LOGICAL                                   ::   ln_bdytide_2ddta    !: If true, read 2d harmonic data
       LOGICAL                                   ::   ln_bdytide_conj     !: If true, assume complex conjugate tidal data
@@ -79 +79 @@
       INTEGER, POINTER, DIMENSION(:)            ::   nblen, nblenrim     ! short cuts
       INTEGER                                   ::   ios                 ! Local integer output status for namelist read
-      CHARACTER(len=80)                         ::   clfile              !: full file name for tidal input file 
+      CHARACTER(len=180)                        ::   clfile              !: full file name for tidal input file 
       REAL(wp),ALLOCATABLE, DIMENSION(:,:,:)    ::   dta_read            !: work space to read in tidal harmonics data
       REAL(wp), POINTER, DIMENSION(:,:)         ::   ztr, zti            !:  "     "    "   "   "   "        "      "