SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/XRD38/LFI/mt/lfiomg

Go to the documentation of this file.
00001 C Jan-2011 P. Marguinaud Thread-safe LFI
00002       SUBROUTINE LFIOMG_MT (LFI, KNIVAU )
00003       USE LFIMOD, ONLY : LFICOM
00004       USE PARKIND1, ONLY : JPRB
00005       USE YOMHOOK , ONLY : LHOOK, DR_HOOK
00006 C****
00007 C        Ce sous-programme permet d'obtenir la valeur courante du NIVEAU
00008 C      GLOBAL d'IMPRESSION des MESSAGES emis par le logiciel LFI.
00009 C**
00010 C        ARGUMENT : KNIVAU (Sortie) ==> Niveau global de messagerie.
00011 C
00012 C     Valeurs possibles (par defaut, 1):
00013 C
00014 C     0 : N'emettre que les messages d'erreurs reellement importants,
00015 C         en pratique ceux relies a une erreur fatale. Le niveau indivi-
00016 C         duel de messagerie des fichiers est alors inoperant.
00017 C
00018 C     1 : Seuls quelques messages "globaux" (c'est-a-dire non reliables
00019 C         a un fichier deja ouvert) et les messages lies a un fichier
00020 C         ouvert, messages dont le niveau est au plus egal au niveau de
00021 C         messagerie individuelle du fichier.
00022 C
00023 C     2 : Emettre tous les messages possibles (donc jusqu'au niveau 2,
00024 C         mais pas ceux lies au mode "mise au point"), meme si
00025 C         ces messages concernent un fichier dont le niveau individuel
00026 C         de messagerie est inferieur a 2.
00027 C
00028 #ifndef f77
00029 #include "precision.h"
00030 #endif
00031 C
00032       TYPE(LFICOM) :: LFI
00033       INTEGER KNIVAU, INIMES, IREP, INUMER
00034 #include "lficom_mt.h"
00035 C
00036       REAL(KIND=JPRB) :: ZHOOK_HANDLE
00037       IF (LHOOK) CALL DR_HOOK('LFIOMG_MT',0,ZHOOK_HANDLE)
00038       IF (LFI%LFIOMG_LLPREA) THEN
00039         CALL LFIINI_MT (LFI, 2)
00040         LFI%LFIOMG_LLPREA=.FALSE.
00041       ENDIF
00042 C
00043       KNIVAU=LFI%NIMESG
00044       INIMES=LFI%NIMESG
00045 C
00046       IF (INIMES.EQ.2) THEN
00047         IREP=0
00048         INUMER=LFI%JPNIL
00049         CLNSPR='LFIOMG'
00050         WRITE (UNIT=CLMESS,FMT='(''KNIVAU='',I2)') KNIVAU
00051         CALL LFIEMS_MT (LFI, INUMER,INIMES,IREP,.FALSE.,CLMESS,
00052      S                  CLNSPR,CLACTI)
00053       ENDIF
00054 C
00055       IF (LHOOK) CALL DR_HOOK('LFIOMG_MT',1,ZHOOK_HANDLE)
00056       END
00057