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

Go to the documentation of this file.
00001 C Jan-2011 P. Marguinaud Thread-safe LFI
00002       SUBROUTINE LFIOFD_MT (LFI, KFACMD )
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
00008 C     du FACTEUR MULTIPLICATIF par DEFAUT du logiciel LFI.
00009 C**
00010 C        ARGUMENT : KFACMD (Sortie) ==> Facteur multiplicatif par defaut
00011 C
00012 C        Le facteur multiplicatif est, pour une unite logique LFI, le
00013 C     rapport entre la longueur d'enregistrement du fichier et LFI%JPRECL.
00014 C
00015 #ifndef f77
00016 #include "precision.h"
00017 #endif
00018 C
00019       TYPE(LFICOM) :: LFI
00020       INTEGER KFACMD, INIMES, IREP, INUMER
00021 #include "lficom_mt.h"
00022 C
00023       REAL(KIND=JPRB) :: ZHOOK_HANDLE
00024       IF (LHOOK) CALL DR_HOOK('LFIOFD_MT',0,ZHOOK_HANDLE)
00025       IF (LFI%LFIOFD_LLPREA) THEN
00026         CALL LFIINI_MT (LFI, 2)
00027         LFI%LFIOFD_LLPREA=.FALSE.
00028       ENDIF
00029 C
00030       IF (LFI%LMULTI) CALL LFIVER_MT (LFI, LFI%VERGLA,'ON')
00031       KFACMD=LFI%MFACTU(0)
00032       IF (LFI%LMULTI) CALL LFIVER_MT (LFI, LFI%VERGLA,'OFF')
00033       INIMES=LFI%NIMESG
00034 C
00035       IF (INIMES.EQ.2) THEN
00036         IREP=0
00037         INUMER=LFI%JPNIL
00038         CLNSPR='LFIOFD'
00039         WRITE (UNIT=CLMESS,FMT='(''KFACMD='',I3)') KFACMD
00040         CALL LFIEMS_MT (LFI, INUMER,INIMES,IREP,.FALSE.,
00041      S                  CLMESS,CLNSPR,CLACTI)
00042       ENDIF
00043 C
00044       IF (LHOOK) CALL DR_HOOK('LFIOFD_MT',1,ZHOOK_HANDLE)
00045       END
00046