Ignore:
Timestamp:
Jul 24, 2024, 4:39:59 PM (2 months ago)
Author:
abarral
Message:

Replace iniprint.h by lmdz_iniprint.f90
(lint) along the way

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/misc/lmdz_iniprint.f90

    r5105 r5118  
     1! Replaces iniprint.h
    12
    2 ! $Header$
     3MODULE lmdz_iniprint
     4  ! gestion des impressions de sorties et de débogage
     5  ! lunout:    unité du fichier dans lequel se font les sorties
     6  !                           (par defaut 6, la sortie standard)
     7  ! prt_level: niveau d'impression souhaité (0 = minimum)
    38
     9  IMPLICIT NONE; PRIVATE
     10  PUBLIC lunout, prt_level
    411
    5 ! gestion des impressions de sorties et de débogage
    6 ! lunout:    unité du fichier dans lequel se font les sorties
    7 !                           (par defaut 6, la sortie standard)
    8 ! prt_level: niveau d'impression souhaité (0 = minimum)
     12  INTEGER :: lunout, prt_level
    913
    10       INTEGER lunout, prt_level
    11       COMMON /comprint/ lunout, prt_level
     14END MODULE lmdz_iniprint
Note: See TracChangeset for help on using the changeset viewer.