Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / FM / fminit.f90
1 !     ######spl
2       SUBROUTINE FMINIT
3 !     #################
4 !
5 !!****  *FMINIT* - routine to initialize the management arrays used by the FM-routines
6 !!
7 !!    PURPOSE
8 !!    -------
9 !
10 !       The purpose of FMINIT is to initialize the management arrays used
11 !     by the other FM-routines. These arrays allow to associate each logical
12 !     unit number with the given file name.
13 !     FMINIT is only called when FMATTR is called for the very
14 !     first time.
15 !       Furthermore, FMINIT opens unit 10 which is dedicated to the pipe
16 !     in which the transfer orders are written (in FMCLOS). Thus, unit 10
17 !     is specific and unavailable for common file management.
18 !
19 !!**  METHOD
20 !!    ------
21 !!
22 !!      Array intrinsics of fortran 90 are used
23 !!
24 !!    EXTERNAL
25 !!    --------
26 !!
27 !!      NONE
28 !!
29 !!    IMPLICIT ARGUMENTS
30 !!    ------------------
31 !!
32 !!      MODULE: MODD_FMDECLAR contains management parameters and
33 !!              storage arrays to move information around at the
34 !!              level of all "FM"-routines.
35 !!
36 !!    REFERENCE
37 !!    ---------
38 !!
39 !!      see the Technical Specifications Report for the Meso-nh project
40 !!      (in French)
41 !!
42 !!    AUTHOR
43 !!    ------
44 !!
45 !!      C. FISCHER      *METEO-FRANCE*
46 !!
47 !!    MODIFICATIONS
48 !!    -------------
49 !!
50 !!      original                                                        06/94
51 !!      modified by C. Fischer                    22/11/94  (open unit 10)
52 !!
53 !----------------------------------------------------------------------------
54 !
55 !*      0.    DECLARATIONS
56 !             ------------
57 !
58 USE MODD_FMDECLAR
59
60 IMPLICIT NONE
61 !----------------------------------------------------------------------------
62
63 NOPEFI=0
64
65 NFITYP=JPNIIL
66
67 CNAMFI=CPUDFN ; CNAMFI(1:10)=CPUNLU
68
69 !OPEN(UNIT=10,FILE='pipe_name',FORM='FORMATTED')
70
71 RETURN
72       END SUBROUTINE FMINIT