Changeset 5101 for LMDZ6/branches/Amaury_dev/tools/fcm/lib

Timestamp:

Jul 23, 2024, 8:22:55 AM (12 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/tools/fcm/lib/Ecmwf/Fortran90_stuff.pm (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/tools/fcm/lib/Ecmwf/Fortran90_stuff.pm

@@ -601 +601 @@
     next if(/^ *$/ | /^ *!/);
 # The following two substitutions should be restored at end of processing
-    s/(\'[^!]*)!+(.*\')/$1\£$2/;   # Protect against mischief 
-    s/(["][^!]*)!+(.*["])/$1\£$2/;      # Protect against mischief
+    s/(\'[^!]*)!+(.*\')/$1\�$2/;   # Protect against mischief 
+    s/(["][^!]*)!+(.*["])/$1\�$2/;      # Protect against mischief
     $im=$im+/JPIM\b/i unless($im);
     $rb=$rb+/JPRB\b/i unless($rb);
@@ -629 +629 @@
     next unless (/^\#/);
     if(@pars) {
-      s/^#include +"tsmbkind.h"/USE PARKIND1  ,ONLY : $string/ ;
+      s/^#include +"tsmbkind.h"/USE PARKIND1  ,ONLY: $string/ ;
     }
     else {
@@ -635 +635 @@
     }
 #    if($rh) {
-      s/^#include +"hugekind.h"/USE PARKIND2  ,ONLY : JPRH/ ;
+      s/^#include +"hugekind.h"/USE PARKIND2  ,ONLY: JPRH/ ;
 #    }
 #    else {
@@ -1418 +1418 @@
     if($hook_status == 0) {   # $hook_status == 0 means we have not done anything yet
       if($cont eq 'USE') {    # Add USE YOMHOOK as second use statement
-        $href->{post_insert}="USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK\n";
+        $href->{post_insert}="USE YOMHOOK   ,ONLY: LHOOK,   DR_HOOK\n";
         $hook_status=1;
       }
       elsif($cont eq 'IMPLICIT NONE') { # No previous USE, add USE YOMHOOK before IMPLICIT NONE
-        $href->{pre_insert} ="USE PARKIND1  ,ONLY : JPRB\n".
-          "USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK\n";
+        $href->{pre_insert} ="USE PARKIND1  ,ONLY: JPRB\n".
+          "USE YOMHOOK   ,ONLY: LHOOK,   DR_HOOK\n";
         $hook_status=1;
       } 
@@ -2471 +2471 @@
   s/($name)%$name/$1/g;
   $_=uc($_);
-#  print "PROPAG $called $_ ££ @inpars \n";
+#  print "PROPAG $called $_ �� @inpars \n";
   my @call_args=split ',' , $_;
   my $i=0;