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 3942 – NEMO

Changeset 3942


Ignore:
Timestamp:
2013-06-28T09:23:21+02:00 (11 years ago)
Author:
clevy
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/EXTERNAL/AGRIF/LIB/SubLoopCreation.c

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