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 5574 for branches/2015 – NEMO

Changeset 5574 for branches/2015


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

Fix ticket #1573 for nemo_v3_6_STABLE

Location:
branches/2015/nemo_v3_6_STABLE/NEMOGCM
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilAgrif.c

    r2715 r5574  
    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  } 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    r4624 r5574  
    1717   USE par_oce 
    1818   USE dom_oce 
    19    USE Agrif_Util 
    2019   USE nemogcm 
    2120   ! 
Note: See TracChangeset for help on using the changeset viewer.