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

Go to the documentation of this file.
00001 C Jan-2011 P. Marguinaud Thread-safe LFI
00002       SUBROUTINE LFIDEB_MT (LFI, LDEBUG )
00003       USE LFIMOD, ONLY : LFICOM
00004       USE PARKIND1, ONLY : JPRB
00005       USE YOMHOOK , ONLY : LHOOK, DR_HOOK
00006 C****
00007 C        CE SOUS-PROGRAMME D'ACTIVER OU DE DESACTIVER LE MODE
00008 C     "MISE AU POINT DU LOGICIEL". ( PAR DEFAUT, INACTIF )
00009 C**
00010 C        ARGUMENT : LDEBUG (ENTREE) ==> VRAI SI ON DOIT ACTIVER CE MODE.
00011 C
00012 #ifndef f77
00013 #include "precision.h"
00014 #endif
00015 C
00016       TYPE(LFICOM) :: LFI
00017       INTEGER INUMER, IREP, INIMES
00018 C
00019       LOGICAL LDEBUG
00020 #include "lficom_mt.h"
00021 C
00022       REAL(KIND=JPRB) :: ZHOOK_HANDLE
00023       IF (LHOOK) CALL DR_HOOK('LFIDEB_MT',0,ZHOOK_HANDLE)
00024       IF (LFI%LFIDEB_LLPREA) THEN
00025         CALL LFIINI_MT (LFI, 2)
00026         LFI%LFIDEB_LLPREA=.FALSE.
00027       ENDIF
00028 C
00029       LFI%LMISOP=LDEBUG
00030 C
00031 C        MESSAGERIE EVENTUELLE .
00032 C
00033       IF (LFI%NIMESG.NE.2)  THEN 
00034         IF (LHOOK) CALL DR_HOOK('LFIDEB_MT',1,ZHOOK_HANDLE)
00035         RETURN
00036       ENDIF
00037       INUMER=LFI%JPNIL
00038       INIMES=2
00039       IREP=0
00040       CLNSPR='LFIDEB'
00041       WRITE (UNIT=CLMESS,FMT='(''LDEBUG= '',L1)') LDEBUG
00042       CALL LFIEMS_MT (LFI, INUMER,INIMES,IREP,.FALSE.,
00043      S                CLMESS,CLNSPR,CLACTI)
00044 C
00045       IF (LHOOK) CALL DR_HOOK('LFIDEB_MT',1,ZHOOK_HANDLE)
00046       END
00047