Changeset 2715 for trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/toamr.c

Timestamp:

2011-03-30T17:58:35+02:00 (13 years ago)

Author:

rblod

Message:

First attempt to put dynamic allocation on the trunk

File:

• trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/toamr.c (modified) (3 diffs)

trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/toamr.c

@@ -243 +243 @@
   strcpy(lvargridname2,"");
   sprintf(lvargridname,"Agrif_%s_var(Agrif_Curgrid%%fixedrank)%%%s",var->v_modulename,var->v_nomvar);
+  printf("modulename = %s %s\n",var->v_nomvar, var->v_modulename);
   }
   else
@@ -665 +666 @@
    FILE *paramtoamr;
    char ligne[LONGNOM];
+   char ligne2[LONGNOM];   
    variable *v;
    int IndiceMax;
@@ -829 +831 @@
            }
            strcat (ligne," = ");
-           strcat (ligne,initialvalue);
+
+           if (v->v_nbdim == 0)
+           {
+           strcpy(ligne2,initialvalue);
+           }
+           else
+           {
+           sprintf(ligne2,"RESHAPE(%s,SHAPE(%s))",initialvalue,vargridnametabvars(v,0));
+           }
+           strcat (ligne,ligne2);
            /*                                                                 */
            Save_Length(ligne,48);