Changeset 3739 for LMDZ6/branches/Optimisation_LMDZ/libf/phy_common

Timestamp:

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

Author:

adurocher

Message:

Fixed dict_mod for GCC 4.8

File:

• LMDZ6/branches/Optimisation_LMDZ/libf/phy_common/profiling_physic.F90 (modified) (1 diff)

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