Changeset 3942

Timestamp:

2013-06-28T09:23:21+02:00 (10 years ago)

Author:

clevy

Message:

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

File:

• branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/EXTERNAL/AGRIF/LIB/SubLoopCreation.c (modified) (3 diffs)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/EXTERNAL/AGRIF/LIB/SubLoopCreation.c

@@ -102 +102 @@
       if ( mark == 1 ) fprintf(fortranout,"!!! aaaaaaaaaaaaaaa \n");
       WriteLocalParamDeclaration();
-      if ( mark == 1 ) fprintf(fortranout,"!!! bbbbbbbbbbbbbbb \n");
+      if ( mark == 1 ) fprintf(fortranout,"!!! bbbbbbbbbbbbbbb \n");   
+      WriteArgumentDeclaration_beforecall();
+      if ( mark == 1 ) fprintf(fortranout,"!!! bbbbbbccccccccc \n");
       if ( functiondeclarationisdone == 0 ) WriteFunctionDeclaration(1);
-      if ( mark == 1 ) fprintf(fortranout,"!!! bbbbbbccccccccc \n");      
-      WriteArgumentDeclaration_beforecall();
 /*      writesub_loopdeclaration_scalar(List_SubroutineArgument_Var,fortranout);
       writesub_loopdeclaration_tab(List_SubroutineArgument_Var,fortranout);*/
@@ -405 +405 @@
 
       AddUseAgrifUtilBeforeCall_0(fortranout);
+      WriteArgumentDeclaration_beforecall();
       if ( functiondeclarationisdone == 0 ) WriteFunctionDeclaration(0);
-      WriteArgumentDeclaration_beforecall();
       if ( !strcasecmp(subofagrifinitgrids,subroutinename) )
                      fprintf(oldfortranout,"      Call Agrif_Init_Grids () \n");
@@ -462 +462 @@
                                                        "      IMPLICIT NONE\n");
       WriteLocalParamDeclaration();
+      WriteArgumentDeclaration_beforecall();
       if ( functiondeclarationisdone == 0 ) WriteFunctionDeclaration(0);
-      WriteArgumentDeclaration_beforecall();
       WriteSubroutineDeclaration(0);
       if ( !strcasecmp(subofagrifinitgrids,subroutinename) )