Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / mesonh_MOD / modd_fmmulti.f90
1 !     ######spl
2       MODULE MODD_FMMULTI
3 !     ####################
4 !
5 !!****  *MODD_FMMULTI* - declaration of global variables for multitasked FM
6 !!
7 !!    PURPOSE
8 !!    -------
9 !
10 !       This module contains variables global to all models (tasks).
11 !     They are used to switch on (off) the multitasked mode in the File Manager.
12 !
13 !!
14 !!    IMPLICIT ARGUMENTS
15 !!    ------------------
16 !!
17 !!      NONE
18 !!
19 !!    REFERENCE
20 !!    ---------
21 !!
22 !!      see "File structure and content in the Meso-NH model"
23 !!
24 !!    AUTHOR
25 !!    ------
26 !!
27 !!      C. FISCHER      *METEO-FRANCE*
28 !!
29 !!    MODIFICATIONS
30 !!    -------------
31 !!
32 !!      original                                                        07/95
33 !!
34 !----------------------------------------------------------------------------
35 !
36 !*      0.    DECLARATIONS
37 !             ------------
38 !
39 IMPLICIT NONE
40
41 INTEGER::NFMLOC                   ! identification of the lock
42 LOGICAL::LFMMUL=.FALSE.           ! becomes TRUE if multitasking is asked
43
44       END MODULE MODD_FMMULTI