- Timestamp:
- Jun 30, 2020, 5:55:11 PM (4 years ago)
- Location:
- LMDZ6/branches/Optimisation_LMDZ/libf
- Files:
-
- 5 edited
-
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)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Optimisation_LMDZ/libf/misc/dict/dict_mod.f90.h
r3705 r3739 11 11 integer :: randstate = 1231767121 12 12 contains 13 final :: destruct_dict13 !final :: destruct_dict 14 14 end type dict 15 15 -
LMDZ6/branches/Optimisation_LMDZ/libf/misc/dict_int_mod.F90
r3705 r3739 1 #define keytype1 character( :),allocatable1 #define keytype1 character(len=25) 2 2 #define keytype2 character(*) 3 3 #define DICT_MODULENAME dict_int_mod -
LMDZ6/branches/Optimisation_LMDZ/libf/misc/dict_logical_mod.F90
r3705 r3739 1 #define keytype1 character( :),allocatable1 #define keytype1 character(len=25) 2 2 #define keytype2 character(*) 3 3 #define DICT_MODULENAME dict_logical_mod -
LMDZ6/branches/Optimisation_LMDZ/libf/misc/dict_real_mod.F90
r3705 r3739 1 #define keytype1 character( :),allocatable1 #define keytype1 character(len=25) 2 2 #define keytype2 character(*) 3 3 #define DICT_MODULENAME dict_real_mod -
LMDZ6/branches/Optimisation_LMDZ/libf/phy_common/profiling_physic.F90
r3706 r3739 119 119 SUBROUTINE exit_profile(name) 120 120 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) 122 122 call exit_profile_aux(get_val(ids,name)) 123 123 END SUBROUTINE
Note: See TracChangeset
for help on using the changeset viewer.
