Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
!-----------------------------------------------------------------
!--------------- special set of characters for RCS information
!-----------------------------------------------------------------
! $Source$ $Revision$
! MASDEV4_7 modd 2006/05/18 13:07:25
!-----------------------------------------------------------------
! #################
MODULE MODD_FMOUT
! #################
!
!!**** *MODD_FMOUT* - declaration of informations on the instants for the
!! outputs of all models
!!
!! PURPOSE
!! -------
! The purpose of this module is to declare the instants for the outputs
!! realized by all models.
! Introduced to facilitate the output FM-file managment in case of nesting
!
!!** IMPLICIT ARGUMENTS
!! ------------------
!!
!! Module MODD_PARAMETERS :
!! JPMODELMAX : Maximum allowed number of nested models
!!
!! REFERENCE
!! ---------
!! Book2 of Meso-NH documentation (module MODD_FMOUT)
!!
!! AUTHOR
!! ------
!! J.P. Lafore *Meteo France*
!!
!! MODIFICATIONS
!! -------------
!! Original 26/07/96
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
USE MODD_PARAMETERS
!
IMPLICIT NONE
!
REAL,SAVE, DIMENSION(JPMODELMAX,JPOUTMAX) :: XFMOUT ! XFMOUT(m,i) array of
! the increments in seconds from the beginning of the segment to the
! instant where the i-th fields output on FM-files is realized by model "m"
!
!
END MODULE MODD_FMOUT