Changeset 8139 for branches/2017/dev_r8126_UKMO_AGRIF_vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/DiversListe.c

Timestamp:

2017-06-05T12:05:17+02:00 (7 years ago)

Author:

timgraham

Message:

Updates to conv library as received from Laurent - required for vertical refinement

File:

• branches/2017/dev_r8126_UKMO_AGRIF_vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/DiversListe.c (modified) (3 diffs)

branches/2017/dev_r8126_UKMO_AGRIF_vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/DiversListe.c

@@ -479 +479 @@
         strcpy(newvar->var->v_nomvar,name);
         strcpy(newvar->var->v_modulename,curmodulename);
+        if (strcasecmp(curmodulename,""))
+        {
+        newvar->var->v_module=1;
+        }
         strcpy(newvar->var->v_subroutinename,subroutinename);
         strcpy(newvar->var->v_commoninfile,cur_filename);
@@ -522 +526 @@
 
             Init_Variable(newvar->var);
-
             newvar->var->v_save = 1;
             strcpy(newvar->var->v_nomvar,parcours->var->v_nomvar);
+            strcpy(newvar->var->v_dimchar,parcours->var->v_dimchar);
             strcpy(newvar->var->v_modulename,curmodulename);
             strcpy(newvar->var->v_subroutinename,subroutinename);
@@ -531 +535 @@
 
             newvar->var->v_nbdim = parcours->var->v_nbdim;
+            strcpy(newvar->var->v_typevar,parcours->var->v_typevar);
+            strcpy(newvar->var->v_precision,parcours->var->v_precision);
             newvar->var->v_catvar = parcours->var->v_catvar;
             newvar->var->v_dimension = parcours->var->v_dimension;
             newvar->var->v_dimensiongiven=parcours->var->v_dimensiongiven;
+            newvar->var->v_allocatable = parcours->var->v_allocatable;
+            newvar->var->v_initialvalue = parcours->var->v_initialvalue;
+            newvar->var->v_initialvalue_array = parcours->var->v_initialvalue_array;
             newvar->suiv = List_Save_Var;
             List_Save_Var = newvar;