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

Go to the documentation of this file.
00001 C Jan-2011 P. Marguinaud Thread-safe LFI
00002       SUBROUTINE LFIOSG_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 d'IMPRESSION des STATISTIQUES concernant les fichiers
00009 C     manipules par le logiciel LFI, lors de leur fermeture.
00010 C**
00011 C        ARGUMENT : KNIVAU (Sortie) ==> Niveau global d'impression des
00012 C                                       statistiques a la fermeture.
00013 C
00014 C     Valeurs possibles (par defaut, 1):
00015 C
00016 C     0 : Dans ce cas, on n'imprime pas de statistiques lors de la fer-
00017 C         meture d'un fichier, meme si l'option individuelle du fichier
00018 C         concerne est a .TRUE. .
00019 C
00020 C     1 : Respect de l'option individuelle du fichier.
00021 C
00022 C     2 : Dans ce cas, force l'impression des statistiques a la ferme-
00023 C         ture d'un fichier, meme si l'option individuelle du fichier
00024 C         est a .FALSE. .
00025 C
00026 #ifndef f77
00027 #include "precision.h"
00028 #endif
00029 C
00030       TYPE(LFICOM) :: LFI
00031       INTEGER KNIVAU, INIMES, IREP, INUMER
00032 #include "lficom_mt.h"
00033 C
00034       REAL(KIND=JPRB) :: ZHOOK_HANDLE
00035       IF (LHOOK) CALL DR_HOOK('LFIOSG_MT',0,ZHOOK_HANDLE)
00036       IF (LFI%LFIOSG_LLPREA) THEN
00037         CALL LFIINI_MT (LFI, 2)
00038         LFI%LFIOSG_LLPREA=.FALSE.
00039       ENDIF
00040 C
00041       KNIVAU=LFI%NISTAG
00042       INIMES=LFI%NIMESG
00043 C
00044       IF (INIMES.EQ.2) THEN
00045         IREP=0
00046         INUMER=LFI%JPNIL
00047         CLNSPR='LFIOSG'
00048         WRITE (UNIT=CLMESS,FMT='(''KNIVAU='',I2)') KNIVAU
00049         CALL LFIEMS_MT (LFI, INUMER,INIMES,IREP,.FALSE.,
00050      S                  CLMESS,CLNSPR,CLACTI)
00051       ENDIF
00052 C
00053       IF (LHOOK) CALL DR_HOOK('LFIOSG_MT',1,ZHOOK_HANDLE)
00054       END
00055