Ignore:
Timestamp:
Jun 30, 2020, 5:55:11 PM (4 years ago)
Author:
adurocher
Message:

Fixed dict_mod for GCC 4.8

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3706 r3739  
    119119  SUBROUTINE exit_profile(name)
    120120    CHARACTER(*) :: name   
    121     if(.not. exists(ids, name)) call abort_physic(modname, "Exit unknown timer")
     121    if(.not. exists(ids, name)) call abort_physic(modname, "Exit unknown timer", 1)
    122122    call exit_profile_aux(get_val(ids,name))
    123123  END SUBROUTINE
Note: See TracChangeset for help on using the changeset viewer.