Changeset 4785 for branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/EXTERNAL/AGRIF/LIB/fortran.y

Timestamp:

2014-09-24T14:03:02+02:00 (10 years ago)

Author:

rblod

Message:

dev_r4765_CNRS_agrif: First update of AGRIF for dynamic only (_flt and _ts), see ticket #1380 and associated wiki page

File:

• branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/EXTERNAL/AGRIF/LIB/fortran.y (modified) (3 diffs)

branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/EXTERNAL/AGRIF/LIB/fortran.y

@@ -275 +275 @@
 %type <na> opt_signe
 %type <na> filename
-%type <nac> attribute
+%type <na> attribute
 %type <na> complex_const
 %type <na> begin_array
@@ -751 +751 @@
 
 save :  before_save varsave
-      | before_save  comblock varsave
+      | before_save comblock varsave
       | save opt_comma comblock opt_comma varsave
       | save ',' varsave
@@ -1325 +1325 @@
             InitialValueGiven = 2;
         }
-      | before_initial TOK_POINT_TO expr
-                    {
-                       if ( couldaddvariable == 1 )
-                       {
-                          strcpy(InitValue,$3);
-                          strcpy(InitialValueGiven,"=>");
-                       }
-                    }
       ;
 complex_const :