Changeset 6436 for branches/UKMO/nemo_v3_6_STABLE_copy/NEMOGCM/EXTERNAL

Timestamp:

2016-04-07T15:33:32+02:00 (8 years ago)

Author:

timgraham

Message:

Updated to r6424 of nemo_v3_6_STABLE

File:

• branches/UKMO/nemo_v3_6_STABLE_copy/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilAgrif.c (modified) (2 diffs)

branches/UKMO/nemo_v3_6_STABLE_copy/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilAgrif.c

@@ -274 +274 @@
      }
      if ( parcours && parcours->o_val != 0 )
-        fprintf(fileout,"\n      use Agrif_Util\n");
-     else
-        fprintf(fileout,"\n      use Agrif_Types, only : Agrif_tabvars\n");
+       {
+        if( strcasecmp(subroutinename,"Agrif_InvLoc") )   
+       fprintf(fileout,"\n      USE Agrif_Util \n");
+       else fprintf(fileout,"\n      USE Agrif_Types \n");
+
+       }
   }
 }
@@ -286 +289 @@
     int out;
 
-    if ( firstpass == 0 )
-    {
-        parcours = List_NameOfModuleUsed;
-        out = 0 ;
-        while ( parcours && out == 0 )
-        {
-            if ( !strcasecmp(parcours->u_usemodule, "Agrif_Util")   &&
-                 !strcasecmp(parcours->u_modulename, curmodulename) &&
-                 !strcasecmp(parcours->u_cursubroutine, subroutinename) )
-                out = 1;
-            else
-                parcours = parcours->suiv;
-        }
-        if ( out == 0 )
-        {
-            fprintf(fileout,"\n      use Agrif_Util\n");
-        }
-    }
+  if ( firstpass == 0 )
+  {
+     parcours = List_NameOfModuleUsed;
+     out = 0 ;
+     while ( parcours && out == 0 )
+     {
+        if ( !strcasecmp(parcours->u_usemodule,"Agrif_Util")     &&
+             !strcasecmp(parcours->u_modulename,curmodulename)   &&
+             !strcasecmp(parcours->u_cursubroutine,subroutinename)
+            ) out = 1;
+        else parcours = parcours->suiv;
+     }
+     if ( out == 0 )
+     {
+       if( strcasecmp(subroutinename,"Agrif_InitWorkspace") )   
+       fprintf(fileout,"\n      USE Agrif_Util \n");
+       else fprintf(fileout,"\n      USE Agrif_Types \n");
+     }
+  }
 }