New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5573 for trunk/NEMOGCM/EXTERNAL – NEMO

Ignore:
Timestamp:
2015-07-09T12:38:34+02:00 (9 years ago)
Author:
rblod
Message:

Fix ticket #1573 for the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilAgrif.c

    r2715 r5573  
    413413                                                    parcours = parcours -> suiv; 
    414414     if ( parcours && parcours->o_val != 0 ) 
    415                                    fprintf(fileout,"\n      USE Agrif_Util \n"); 
     415       { 
     416        if( strcasecmp(subroutinename,"Agrif_InvLoc") )    
     417       fprintf(fileout,"\n      USE Agrif_Util \n"); 
     418       else fprintf(fileout,"\n      USE Agrif_Types \n"); 
     419 
     420       } 
    416421  } 
    417422} 
     
    437442     if ( out == 0 ) 
    438443     { 
    439         fprintf(fileout,"\n      USE Agrif_Util \n"); 
     444       if( strcasecmp(subroutinename,"Agrif_InitWorkspace") )    
     445       fprintf(fileout,"\n      USE Agrif_Util \n"); 
     446       else fprintf(fileout,"\n      USE Agrif_Types \n"); 
    440447     } 
    441448  } 
Note: See TracChangeset for help on using the changeset viewer.