Ignore:
Timestamp:
2015-07-15T17:46:12+02:00 (5 years ago)
Author:
andrewryan
Message:

merged in latest version of trunk alongside changes to SAO_SRC to be compatible with latest OBS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilAgrif.c

    r2715 r5600  
    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.