Changeset 3739

Timestamp:

Jun 30, 2020, 5:55:11 PM (4 years ago)

Author:

adurocher

Message:

Fixed dict_mod for GCC 4.8

Location:

LMDZ6/branches/Optimisation_LMDZ/libf

Files:

• misc/dict/dict_mod.f90.h (modified) (1 diff)
• misc/dict_int_mod.F90 (modified) (1 diff)
• misc/dict_logical_mod.F90 (modified) (1 diff)
• misc/dict_real_mod.F90 (modified) (1 diff)
• phy_common/profiling_physic.F90 (modified) (1 diff)

LMDZ6/branches/Optimisation_LMDZ/libf/misc/dict/dict_mod.f90.h

@@ -11 +11 @@
     integer :: randstate = 1231767121
     contains
-    final :: destruct_dict
+    !final :: destruct_dict
   end type dict
 

LMDZ6/branches/Optimisation_LMDZ/libf/misc/dict_int_mod.F90

@@ -1 @@
-#define keytype1 character(:),allocatable
+#define keytype1 character(len=25)
 #define keytype2 character(*)
 #define DICT_MODULENAME dict_int_mod

LMDZ6/branches/Optimisation_LMDZ/libf/misc/dict_logical_mod.F90

@@ -1 @@
-#define keytype1 character(:),allocatable
+#define keytype1 character(len=25)
 #define keytype2 character(*)
 #define DICT_MODULENAME dict_logical_mod

LMDZ6/branches/Optimisation_LMDZ/libf/misc/dict_real_mod.F90

@@ -1 @@
-#define keytype1 character(:),allocatable
+#define keytype1 character(len=25)
 #define keytype2 character(*)
 #define DICT_MODULENAME dict_real_mod

LMDZ6/branches/Optimisation_LMDZ/libf/phy_common/profiling_physic.F90

@@ -119 +119 @@
   SUBROUTINE exit_profile(name)
     CHARACTER(*) :: name    
-    if(.not. exists(ids, name)) call abort_physic(modname, "Exit unknown timer")
+    if(.not. exists(ids, name)) call abort_physic(modname, "Exit unknown timer", 1)
     call exit_profile_aux(get_val(ids,name))
   END SUBROUTINE