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

Go to the documentation of this file.
00001 C Jan-2011 P. Marguinaud Thread-safe LFI
00002       SUBROUTINE LFIVER_MT (LFI, PVEROU, CDSENS )
00003       USE LFIMOD, ONLY : LFICOM
00004       USE PARKIND1, ONLY : JPRB
00005       USE YOMHOOK , ONLY : LHOOK, DR_HOOK
00006 C****
00007 C        CE S/P EST CHARGE, EN MODE MULTI-TASKING, DE TOUTES LES
00008 C        ACTIONS CONCERNANT LES "VERROUS" .
00009 C**
00010 C     ARGUMENTS : PVEROU ==> VERROU CONCERNE;
00011 C                 CDSENS ==> SUFFIXE DE L'ACTION SOUHAITEE.
00012 C                            ('ASGN','ON','OFF','REL')
00013 C
00014 #ifndef f77
00015 #include "precision.h"
00016 #endif
00017 C
00018       TYPE(LFICOM) :: LFI
00019       CHARACTER CDSENS*(*)
00020 C
00021       INTEGER INUMER, IREP, INIMES
00022 C
00023       REAL PVEROU
00024 #include "lficom_mt.h"
00025 C
00026         REAL(KIND=JPRB) :: ZHOOK_HANDLE
00027         IF (LHOOK) CALL DR_HOOK('LFIVER_MT',0,ZHOOK_HANDLE)
00028         INUMER=LFI%JPNIL
00029         INIMES=0
00030         IREP=-3
00031         LLFATA=LFI%NERFAG.NE.2
00032         CLNSPR='LFIVER'
00033         CALL LFIEMS_MT (LFI, INUMER,INIMES,IREP,LLFATA,CLMESS,
00034      S                  CLNSPR,CLACTI)
00035 C
00036       IF (LHOOK) CALL DR_HOOK('LFIVER_MT',1,ZHOOK_HANDLE)
00037       END
00038