Changeset 8139 for branches/2017/dev_r8126_UKMO_AGRIF_vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilAgrif.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/UtilAgrif.c (modified) (1 diff)

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

@@ -150 +150 @@
     {
         // remove the variable
-        RemoveWordCUR_0(fortran_out,lengthname);
+ //       RemoveWordCUR_0(fortran_out,lengthname);
         // then write the new name
-        if ( inagrifcallargument == 1 && agrif_parentcall == 0 )
-            fprintf(fortran_out,"%d",newvar->var->v_indicetabvars);
-        else
-        {
-            if ( retour77 == 0 )
-                fprintf(fortran_out,"Agrif_%s & \n      ", tabvarsname(newvar->var));
-            else
-            {
-               fprintf(fortran_out,"Agrif_%s", tabvarsname(newvar->var));
-               fprintf(fortran_out," \n     & ");
-            }
-            fprintf(fortran_out,"%s",vargridcurgridtabvarswithoutAgrif_Gr(newvar->var));
-        }
+ //        if ( inagrifcallargument == 1 && agrif_parentcall == 0 )
+//             fprintf(fortran_out,"%d",newvar->var->v_indicetabvars);
+//         else
+//         {
+//             if ( retour77 == 0 )
+//                 fprintf(fortran_out,"Agrif_%s & \n      ", tabvarsname(newvar->var));
+//             else
+//             {
+//                fprintf(fortran_out,"Agrif_%s", tabvarsname(newvar->var));
+//                fprintf(fortran_out," \n     & ");
+//             }
+//             fprintf(fortran_out,"%s",vargridcurgridtabvarswithoutAgrif_Gr(newvar->var));
+//         }
     }
     else