Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / FM2DIA / elim.f90
1 !     ######spl
2       SUBROUTINE ELIM(HRECFM)
3 !     #######################
4 !
5 !!****  *ELIM* - Mise a 0 des numeros d'enregistrements lus correspondant
6 !                aux parametres "intouchables"
7 !!
8 !!    PURPOSE
9 !!    -------
10 !       On met arbitrairement a 0 les numeros d'enregistrements lus correspon-
11 !       -dant aux parametres "intouchables" pour les eliminer du traitement
12 !       realise dans la routine WRITE_OTHERFIELDS 
13 !
14 !!**  METHOD
15 !!    ------
16 !       On met a une valeur nulle les numeros d'enregistrements correspon-
17 !       -dant aux parametres "intouchables" ecrits dans le fichier
18 !      diachronique une fois pour toutes avec la routine 
19 !      WRITE_LFIFM1_FORDIACHRO_CV pour ne pas les prendre en compte dans
20 !      la routine WRITE_OTHERFIELDS
21 !!
22 !!    REFERENCE
23 !!    ---------
24 !!     
25 !!
26 !!    AUTHORS
27 !!    -------
28 !!    J. Duron      *Lab. Aerologie* 
29 !!
30 !!
31 !!    MODIFICATIONS
32 !!    -------------
33 !!      Original    30/01/96 
34 !-------------------------------------------------------------------------------
35 !
36 !*       0.    DECLARATIONS
37 !              ------------
38 !
39 USE  MODD_DIMGRID_FORDIACHRO        
40 !
41 !*       0.1   Dummy arguments
42 !
43 CHARACTER(LEN=*)  :: HRECFM 
44 !
45 !*       0.2   Local variables declarations
46 !
47 INTEGER           :: J
48 !
49 !----------------------------------------------------------------------------
50 !
51 DO J=1,NNB
52   IF(HRECFM == CRECFM2T(J,1))NNUMT(J,1)=0
53 ENDDO
54 !
55 !----------------------------------------------------------------------------
56
57 RETURN
58
59 END SUBROUTINE ELIM