Changeset 3943


Ignore:
Timestamp:
2013-06-28T09:28:33+02:00 (8 years ago)
Author:
clevy
Message:

change AGRIF/LIB to allow compatibility with key_nosignedzero in v3_5, see ticket #1091

File:
1 edited

Legend:

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

    r2715 r3943  
    102102      if ( mark == 1 ) fprintf(fortranout,"!!! aaaaaaaaaaaaaaa \n"); 
    103103      WriteLocalParamDeclaration(); 
    104       if ( mark == 1 ) fprintf(fortranout,"!!! bbbbbbbbbbbbbbb \n"); 
     104      if ( mark == 1 ) fprintf(fortranout,"!!! bbbbbbbbbbbbbbb \n");    
     105      WriteArgumentDeclaration_beforecall(); 
     106      if ( mark == 1 ) fprintf(fortranout,"!!! bbbbbbccccccccc \n"); 
    105107      if ( functiondeclarationisdone == 0 ) WriteFunctionDeclaration(1); 
    106       if ( mark == 1 ) fprintf(fortranout,"!!! bbbbbbccccccccc \n");       
    107       WriteArgumentDeclaration_beforecall(); 
    108108/*      writesub_loopdeclaration_scalar(List_SubroutineArgument_Var,fortranout); 
    109109      writesub_loopdeclaration_tab(List_SubroutineArgument_Var,fortranout);*/ 
     
    405405 
    406406      AddUseAgrifUtilBeforeCall_0(fortranout); 
     407      WriteArgumentDeclaration_beforecall(); 
    407408      if ( functiondeclarationisdone == 0 ) WriteFunctionDeclaration(0); 
    408       WriteArgumentDeclaration_beforecall(); 
    409409      if ( !strcasecmp(subofagrifinitgrids,subroutinename) ) 
    410410                     fprintf(oldfortranout,"      Call Agrif_Init_Grids () \n"); 
     
    462462                                                       "      IMPLICIT NONE\n"); 
    463463      WriteLocalParamDeclaration(); 
     464      WriteArgumentDeclaration_beforecall(); 
    464465      if ( functiondeclarationisdone == 0 ) WriteFunctionDeclaration(0); 
    465       WriteArgumentDeclaration_beforecall(); 
    466466      WriteSubroutineDeclaration(0); 
    467467      if ( !strcasecmp(subofagrifinitgrids,subroutinename) ) 
Note: See TracChangeset for help on using the changeset viewer.