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

Go to the documentation of this file.
00001 C Jan-2011 P. Marguinaud Thread-safe LFI
00002       SUBROUTINE LFIOEG_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 de traitement des ERREURS detectees par le logiciel LFI.
00009 C**
00010 C        ARGUMENT : KNIVAU (Sortie) ==> Niveau global de traitement des
00011 C                                       erreurs detectees.
00012 C
00013 C     Valeurs possibles (par defaut, 1):
00014 C
00015 C     0 : Dans ce cas, toute erreur detectee sera fatale, meme si
00016 C         l'erreur joue sur un fichier dont l'option individuelle de
00017 C         traitement des erreurs est a .FALSE. .
00018 C
00019 C     1 : Seules les erreurs "globales" (c'est-a-dire non reliables a un
00020 C         fichier deja ouvert) et les erreurs reliees a un fichier dont
00021 C         l'option individuelle de traitement est .TRUE. seront fatales.
00022 C
00023 C     2 : Passer outre toute erreur detectee, meme si elle correspond
00024 C         a un fichier dont l'option individuelle de traitement est
00025 C         .TRUE. ; noter que dans ce dernier cas le code-reponse ne
00026 C         sera pas nul. Par ailleurs, le code-reponse (-16) echappe a
00027 C         ce mode de controle et est toujours fatal.
00028 C
00029 #ifndef f77
00030 #include "precision.h"
00031 #endif
00032 C
00033       TYPE(LFICOM) :: LFI
00034       INTEGER KNIVAU, INIMES, IREP, INUMER
00035 #include "lficom_mt.h"
00036 C
00037       REAL(KIND=JPRB) :: ZHOOK_HANDLE
00038       IF (LHOOK) CALL DR_HOOK('LFIOEG_MT',0,ZHOOK_HANDLE)
00039       IF (LFI%LFIOEG_LLPREA) THEN
00040         CALL LFIINI_MT (LFI, 2)
00041         LFI%LFIOEG_LLPREA=.FALSE.
00042       ENDIF
00043 C
00044       KNIVAU=LFI%NERFAG
00045       INIMES=LFI%NIMESG
00046 C
00047       IF (INIMES.EQ.2) THEN
00048         IREP=0
00049         INUMER=LFI%JPNIL
00050         CLNSPR='LFIOEG'
00051         WRITE (UNIT=CLMESS,FMT='(''KNIVAU='',I2)') KNIVAU
00052         CALL LFIEMS_MT (LFI, INUMER,INIMES,IREP,.FALSE.,
00053      S                  CLMESS,CLNSPR,CLACTI)
00054       ENDIF
00055 C
00056       IF (LHOOK) CALL DR_HOOK('LFIOEG_MT',1,ZHOOK_HANDLE)
00057       END
00058