Changeset 10088 for vendors/AGRIF/CMEMS_2020/LIB/WorkWithlistvarindoloop.c

Timestamp:

2018-09-05T15:35:32+02:00 (6 years ago)

Author:

rblod

Message:

update conv

File:

• vendors/AGRIF/CMEMS_2020/LIB/WorkWithlistvarindoloop.c (modified) (16 diffs)

vendors/AGRIF/CMEMS_2020/LIB/WorkWithlistvarindoloop.c

@@ -119 +119 @@
   if ( !List_UsedInSubroutine_Var )
   {
+  printf("LISTE VIDE\n");
       newvar=(listvar *)calloc(1,sizeof(listvar));
       newvar->var=(variable *)calloc(1,sizeof(variable));
@@ -161 +162 @@
          }
       }
+      
       if ( out == 2 || out == 0 )
       {
@@ -175 +177 @@
 
          /* we should find this new variable to know the tabvars indice       */
+
          if ( variableisglobal(newvar, List_Global_Var) == 1 )
          {
@@ -271 +274 @@
 void Merge_Variables(variable *var1, variable *var2)
 {
+
     if ( !strcasecmp(var1->v_typevar,"") )
             strcpy(var1->v_typevar,var2->v_typevar);
-    else
-      {
-      strcpy(var2->v_typevar,var1->v_typevar);
-      }
+    else    strcpy(var2->v_typevar,var1->v_typevar);
 
     if ( !strcasecmp(var1->v_oldname,"") )
@@ -310 +311 @@
     else    strcpy(var2->v_precision,var1->v_precision);
 
-    if ( !strcasecmp(var1->v_initialvalue,"") )
-            strcpy(var1->v_initialvalue,var2->v_initialvalue);
-    else    strcpy(var2->v_initialvalue,var1->v_initialvalue);
-
+//     if ( !strcasecmp(var1->v_initialvalue,"") )
+//             strcpy(var1->v_initialvalue,var2->v_initialvalue);
+//     else    strcpy(var2->v_initialvalue,var1->v_initialvalue);
+
+    if ( var1->v_initialvalue )
+            var2->v_initialvalue = var1->v_initialvalue;
+    else    var1->v_initialvalue = var2->v_initialvalue;
+
+    if ( var1->v_initialvalue_array )
+            var2->v_initialvalue_array = var1->v_initialvalue_array;
+    else    var1->v_initialvalue_array = var2->v_initialvalue_array;
+    
+    if ( var1->v_do_loop )
+            var2->v_do_loop = var1->v_do_loop;
+    else    var1->v_do_loop = var2->v_do_loop;
+    
+//     if ( !strcasecmp(var1->v_initialvalue_array,"") )
+//             strcpy(var1->v_initialvalue_array,var2->v_initialvalue_array);
+//     else    strcpy(var2->v_initialvalue_array,var1->v_initialvalue_array);
+    
     if ( !strcasecmp(var1->v_IntentSpec,"") )
             strcpy(var1->v_IntentSpec,var2->v_IntentSpec);
@@ -490 +507 @@
          /*                                                                   */
          newvar->suiv = NULL;
+
          Merge_Variables(parcours->var,newvar->var);
          strcpy(newvar->var->v_subroutinename,parcours->var->v_subroutinename);
@@ -1155 +1173 @@
                 newvar->var->v_VariableIsParameter,
                 newvar->var->v_typevar,
-                newvar->var->v_initialvalue );
+                newvar->var->v_initialvalue->n_name );
         newvar = newvar->suiv;
     }
@@ -1173 +1191 @@
                                         strcpy(parcours->var->v_typevar,"REAL");
          else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
       }
       parcours = parcours -> suiv ;
@@ -1185 +1204 @@
                                         strcpy(parcours->var->v_typevar,"REAL");
          else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
       }
       parcours = parcours -> suiv ;
@@ -1197 +1217 @@
                                         strcpy(parcours->var->v_typevar,"REAL");
          else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
       }
       parcours = parcours -> suiv ;
@@ -1209 +1230 @@
                                         strcpy(parcours->var->v_typevar,"REAL");
          else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
+      }
+      parcours = parcours -> suiv ;
+   }
+   
+   /*                                                                         */
+   parcours = List_Parameter_Var;
+   while ( parcours )
+   {
+      if ( !strcasecmp(parcours->var->v_typevar,"") )
+      {
+         if ( IsVariableReal(parcours->var->v_nomvar) == 1 )
+                                        strcpy(parcours->var->v_typevar,"REAL");
+         else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
+      }
+      parcours = parcours -> suiv ;
+   }
+   
+   /*                                                                         */
+   parcours = List_GlobalParameter_Var;
+   while ( parcours )
+   {
+      if ( !strcasecmp(parcours->var->v_typevar,"") )
+      {
+         if ( IsVariableReal(parcours->var->v_nomvar) == 1 )
+                                        strcpy(parcours->var->v_typevar,"REAL");
+         else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
       }
       parcours = parcours -> suiv ;
@@ -1509 +1559 @@
 void update_indicemaxtabvars(variable *var,listindice **Listofindices)
 {
-
-
             if ( Listofindices[var->v_catvar] )
             {
@@ -1547 +1595 @@
           )
       {
+            /* The type may has not been given if the variable was only declared with dimension */
+
+            if ( !strcasecmp(parcours->var->v_typevar,"") )
+            {
+                  if ( IsVariableReal(parcours->var->v_nomvar) == 1 )
+                                        strcpy(parcours->var->v_typevar,"REAL");
+                  else strcpy(parcours->var->v_typevar,"INTEGER");
+                  parcours->var->v_catvar = get_cat_var(parcours->var);
+             }
+             
          indicemaxtabvars[parcours->var->v_catvar] = indicemaxtabvars[parcours->var->v_catvar] + 1 ;
          parcours->var->v_indicetabvars = indicemaxtabvars[parcours->var->v_catvar];
@@ -1626 +1684 @@
               parcours->var->v_notgrid == 0                              &&
               ( ( parcours->var->v_nbdim != 0 || !strcasecmp(parcours->var->v_typevar,"type") )
-              || strcasecmp(parcours->var->v_initialvalue,"") )
+              || parcours->var->v_initialvalue )
             )
          {
@@ -1658 +1716 @@
               !strcasecmp(parcours->var->v_commoninfile,cur_filename)       &&
               ( ( parcours->var->v_nbdim != 0 || !strcasecmp(parcours->var->v_typevar,"type") )
-              || strcasecmp(parcours->var->v_initialvalue,"") )
+              || parcours->var->v_initialvalue )
             )
          {
@@ -1845 +1903 @@
       printf("dimensiongiven - %d \n", parcours->var->v_dimensiongiven);
       printf("dimsempty      - %d \n", parcours->var->v_dimsempty);
-      printf("initialvalue   - %s \n", parcours->var->v_initialvalue);
+      printf("initialvalue   - %s \n", parcours->var->v_initialvalue->n_name);
       printf("readedlistdim  - %s \n", parcours->var->v_readedlistdimension);
       printf("-------------------------------------\n");