Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / MOD / modd_field1_cv2d.f90
1 !-----------------------------------------------------------------
2 !--------------- special set of characters for SCCS information
3 !-----------------------------------------------------------------
4 !      @(#) Lib:/opt/local/MESONH/sources/modd/s.modd_field1_cv2d.f90, Version:1.9, Date:98/10/01, Last modified:98/06/04
5 !-----------------------------------------------------------------
6 !     #######################
7       MODULE MODD_FIELD1_CV2D
8 !     #######################
9 !
10 !!****  *MODD_FIELD1_CV2D* - declaration of arrays for prognostic variables
11 !                            in case of vertical sections
12 !!
13 !!    PURPOSE
14 !!    -------
15 !       The purpose of this declarative module is to specify  the 
16 !     arrays holding prognostic variables in vertical planes
17 !
18 !!
19 !!**  IMPLICIT ARGUMENTS
20 !!    ------------------
21 !!      None 
22 !!
23 !!    REFERENCE
24 !!    ---------
25 !!      
26 !!     Book2 of the TRACE volume of the Meso-NH user manual
27 !!     (MODD_FIELD1_CV2D), to appear in 1994 
28 !!
29 !!    AUTHOR
30 !!    ------
31 !!      JD    "LA"
32 !!
33 !!    MODIFICATIONS
34 !!    -------------
35 !!      Original          05/05/94                      
36 !!      Updated   PM      17/11/94  
37 !!                (Stein) 08/03/95 Change the historical variables
38 !!                (Stein) 25/07/97 AChange the pressure variables
39 !-------------------------------------------------------------------------------
40 !
41 !*       0.   DECLARATIONS
42 !             ------------
43 !
44 IMPLICIT NONE
45
46 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XUMCV,XVMCV,XWMCV ! U,V,W at time t-dt
47 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XUTCV,XVTCV,XWTCV ! U,V,W at time t   
48 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XRUSCV,XRVSCV,XRWSCV ! Source of 
49                                                    ! (rho U), (rho V), (rho W) 
50 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XTHMCV    ! theta at time t-dt
51 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XTHTCV    ! theta at time t
52 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XRTHSCV   ! Source of (rho theta)
53 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XTKEMCV   ! Kinetic energy at time t-dt 
54 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XTKETCV   ! Kinetic energy at time t
55 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XRTKESCV  ! Source of kinetic energy
56                                                    ! (rho e)
57 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XPABSMCV  ! Pressure variable 
58                                                    ! at time t-dt
59 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XPABSTCV  ! Pressure variable 
60                                                    ! at time t
61 REAL,DIMENSION(:,:,:), ALLOCATABLE,SAVE :: XRMCV   ! Moist variables
62                                                    ! at time t-dt
63 REAL,DIMENSION(:,:,:), ALLOCATABLE,SAVE :: XRTCV   ! Moist variables 
64                                                    ! at time t
65 REAL,DIMENSION(:,:,:), ALLOCATABLE,SAVE :: XRRSCV  ! Source of Moist variables
66                                                    ! (rho Rn) 
67 REAL,DIMENSION(:,:,:), ALLOCATABLE,SAVE :: XSVMCV  ! Additionnal scalar
68                                                    ! variables at time t-deltat
69 REAL,DIMENSION(:,:,:), ALLOCATABLE,SAVE :: XSVTCV  ! Additionnal scalar
70                                                    ! variables at time t
71 REAL,DIMENSION(:,:,:), ALLOCATABLE,SAVE :: XRSVSCV ! Source of Additionnal scal.
72                                                    !  variables (rho Sn.) 
73 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XULMCV 
74 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XULTCV 
75 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XVTMCV 
76 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XVTTCV 
77
78 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XWORKCV 
79
80 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XLSUMCV   ! Larger scale fields at
81 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XLSVMCV   ! time t-deltat for
82 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XLSWMCV   ! U,V,W,TH and Rv
83 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XLSTHMCV   
84 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XLSRVMCV   
85
86 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XULMWMUCV  ! U component for UW 
87 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XULTWTUCV  ! vectors plot
88 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XULMWMWCV  ! W component for UW
89 REAL,DIMENSION(:,:), ALLOCATABLE,SAVE :: XULTWTWCV  ! vectors plot
90 !
91 END MODULE MODD_FIELD1_CV2D