Changeset 5573 for trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilAgrif.c

Timestamp:

2015-07-09T12:38:34+02:00 (9 years ago)

Author:

rblod

Message:

Fix ticket #1573 for the trunk

File:

• trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilAgrif.c (modified) (2 diffs)

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

@@ -413 +413 @@
                                                     parcours = parcours -> suiv;
      if ( parcours && parcours->o_val != 0 )
-                                   fprintf(fileout,"\n      USE Agrif_Util \n");
+       {
+        if( strcasecmp(subroutinename,"Agrif_InvLoc") )   
+       fprintf(fileout,"\n      USE Agrif_Util \n");
+       else fprintf(fileout,"\n      USE Agrif_Types \n");
+
+       }
   }
 }
@@ -437 +442 @@
      if ( out == 0 )
      {
-        fprintf(fileout,"\n      USE Agrif_Util \n");
+       if( strcasecmp(subroutinename,"Agrif_InitWorkspace") )   
+       fprintf(fileout,"\n      USE Agrif_Util \n");
+       else fprintf(fileout,"\n      USE Agrif_Types \n");
      }
   }