SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/XRD38/FA/mt/famiso

Go to the documentation of this file.
00001 C Jan-2011 P. Marguinaud Thread-safe FA
00002       SUBROUTINE FAMISO_MT (FA,  LDEBUG )
00003       USE FA_MOD, ONLY : FA_COM
00004       USE PARKIND1, ONLY : JPRB
00005       USE YOMHOOK , ONLY : LHOOK, DR_HOOK
00006 C****
00007 C        Ce sous-programme permet d'activer ou de desactiver le mode
00008 C     "Mise au point du logiciel". ( par defaut, inactif )
00009 C        A noter que le mode "mise au point" du logiciel LFI n'est pas
00010 C     modifie.
00011 C**
00012 C        Argument : LDEBUG (Entree) ==> Vrai si on doit activer ce mode.
00013 C
00014 #include "precision.h"
00015 C
00016 C
00017       TYPE(FA_COM) :: FA
00018       INTEGER IREP, INUMER, INIMES
00019 C
00020       LOGICAL LDEBUG
00021 #include "facom_mt.h"
00022 C
00023 C
00024       REAL(KIND=JPRB) :: ZHOOK_HANDLE
00025       IF (LHOOK) CALL DR_HOOK('FAMISO_MT',0,ZHOOK_HANDLE)
00026       IF (FA%FAMISO_LLPREA) THEN
00027         CALL FARINE_MT (FA, 2)
00028         FA%FAMISO_LLPREA=.FALSE.
00029       ENDIF
00030 C
00031       FA%LFAMOP=LDEBUG
00032 C
00033 C  Prise en compte du niveau de messagerie dans GRIBEX
00034 C
00035       IF (FA%LFAMOP) THEN
00036         CALL GRSDBG(1)
00037       ELSE
00038         CALL GRSDBG(0)
00039       ENDIF
00040 C
00041 C        MESSAGERIE EVENTUELLE .
00042 C
00043       IF (FA%NIMSGA.NE.2)  THEN 
00044         IF (LHOOK) CALL DR_HOOK('FAMISO_MT',1,ZHOOK_HANDLE)
00045         RETURN
00046       ENDIF
00047       INUMER=FA%JPNIIL
00048       INIMES=2
00049       IREP=0
00050       CLNSPR='FAMISO'
00051       WRITE (UNIT=CLMESS,FMT='(''LDEBUG= '',L1)') LDEBUG
00052       CALL FAIPAR_MT (FA, INUMER,INIMES,IREP,.FALSE.,CLMESS,
00053      S                CLNSPR,CLACTI,.FALSE.)
00054 C
00055       IF (LHOOK) CALL DR_HOOK('FAMISO_MT',1,ZHOOK_HANDLE)
00056       END
00057