Ignore:
Timestamp:
Jul 28, 2017, 2:36:57 PM (7 years ago)
Author:
emillour
Message:

Slight improvement in the definition of print_control_mod module variables: the default value is set in the module (to avoid undefined behavior if these are used before the init_print_control routine is called).
EM

Location:
trunk/LMDZ.COMMON/libf/phy_common
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/phy_common/init_print_control_mod.F90

    r1682 r1761  
    2323    !Config  Help = Niveau d'impression pour le débogage
    2424    !Config         (0 = minimum d'impression)
    25     prt_level = 0
     25!    prt_level = 0 ! default set in  print_control_mod)
    2626    CALL getin_p('prt_level',prt_level)
    2727
     
    3131    !Config  Help = unite de fichier pour les impressions
    3232    !Config         (defaut sortie standard = 6)
    33     lunout=6
     33!    lunout=6 ! default set in  print_control_mod)
    3434    CALL getin_p('lunout', lunout)
    3535
     
    5151    !Config  Help = positionne le mode debogage
    5252
    53     debug = .FALSE.
     53!    debug = .FALSE. ! default set in  print_control_mod)
    5454    CALL getin_p('debug',debug)
    5555   
  • trunk/LMDZ.COMMON/libf/phy_common/print_control_mod.F90

    r1682 r1761  
    22MODULE print_control_mod
    33
    4   INTEGER,SAVE :: lunout ! default output file identifier (6==screen)
    5   INTEGER,SAVE :: prt_level ! debug output level
    6   LOGICAL,SAVE :: debug ! flag to specify if in "debug mode"
     4  INTEGER,SAVE :: lunout=6 ! default output file identifier (6==screen)
     5  INTEGER,SAVE :: prt_level=0 ! debug output level
     6  LOGICAL,SAVE :: debug=.FALSE. ! flag to specify if in "debug mode"
    77!$OMP THREADPRIVATE(lunout,prt_level,debug)
    88
Note: See TracChangeset for help on using the changeset viewer.