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

Go to the documentation of this file.
00001 C Jan-2011 P. Marguinaud Thread-safe LFI
00002       SUBROUTINE LFIFRA_MT (LFI, LDFRAN )
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 aux messages (ulterieurs) emis par le
00008 C     logiciel LFI d'etre rediges en FRANCAIS ou en ANGLAIS.
00009 C        L'option par defaut est definie dans le sous-programme *LFIINI*
00010 C
00011 C        This Subroutine enables (further) messages from LFI software
00012 C     to be written in FRENCH or ENGLISH. Default mode is defined in
00013 C     routine *LFIINI* .
00014 C**
00015 C        ARGUMENT : LDFRAN (Entree) ==> Vrai/Faux pour francais/anglais.
00016 C                           Input       True/False for french/english
00017 #ifndef f77
00018 #include "precision.h"
00019 #endif
00020 C
00021       TYPE(LFICOM) :: LFI
00022       INTEGER INIMES, IREP, INUMER
00023 C
00024       LOGICAL LDFRAN
00025 #include "lficom_mt.h"
00026 C
00027       REAL(KIND=JPRB) :: ZHOOK_HANDLE
00028       IF (LHOOK) CALL DR_HOOK('LFIFRA_MT',0,ZHOOK_HANDLE)
00029       IF (LFI%LFIFRA_LLPREA) THEN
00030 C
00031 C        Au premier appel du sous-programme, on initialise les variables
00032 C     globales du logiciel (si cela n'a pas deja ete fait) .
00033 C
00034 C        At first routine call, initialisation of software global
00035 C     variables (if not already done) .
00036 C
00037         CALL LFIINI_MT (LFI, 2)
00038         LFI%LFIFRA_LLPREA=.FALSE.
00039       ENDIF
00040 C
00041       LFI%LFRANC=LDFRAN
00042 C
00043 C        MESSAGERIE EVENTUELLE . MESSAGE, IF NECESSARY .
00044 C
00045       IF (LFI%NIMESG.NE.2)  THEN 
00046         IF (LHOOK) CALL DR_HOOK('LFIFRA_MT',1,ZHOOK_HANDLE)
00047         RETURN
00048       ENDIF
00049       INUMER=LFI%JPNIL
00050       INIMES=2
00051       IREP=0
00052       CLNSPR='LFIFRA'
00053       WRITE (UNIT=CLMESS,FMT='(''LDFRAN= '',L1)') LDFRAN
00054       CALL LFIEMS_MT (LFI, INUMER,INIMES,IREP,.FALSE.,CLMESS,
00055      S                CLNSPR,CLACTI)
00056 C
00057       IF (LHOOK) CALL DR_HOOK('LFIFRA_MT',1,ZHOOK_HANDLE)
00058       END
00059