source: LMDZ5/trunk/libf/phymar/Mod_genTKE_RUN.f90 @ 3132

Last change on this file since 3132 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.7 KB
Line 
1      module Mod_genTKE_RUN
2
3!--------------------------------------------------------------------------+
4!                                                     Mon 17-Jun-2013  MAR |
5!     module Mod_genTKE_RUN contains local variables of PHY_genTKE_RUN     |
6!                                                                          |
7!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
8!           Last Modification by H. Gallee,           Mon 17-Jun-2013      |
9!                                                                          |
10!--------------------------------------------------------------------------+
11
12
13! Global  Variables
14! =================
15
16      use Mod_Real
17
18
19
20!  Local  Variables
21!  ================
22
23      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  dukkp1    !      Difference (u(k) - u(k+1))                      [m/s]
24      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  dvkkp1    !      Difference (v(k) - v(k+1))                      [m/s]
25      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  kkp1dz    !  1 / Difference (Z(k) - Z(k+1))                      [1/m]
26      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  zShear    !      Wind Shear Contribution to TKE                [m2/s3]
27      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  REq_PT    !  Reduced (Equivalent) Potential Temperature            [K]
28      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  c_Buoy    !  Buoyancy Coefficient (g/theta) X (dtheta/dz)       [1/s2]
29      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  Ri__Nb    !  Richardson Number                                     [-]
30      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  Prandtl   !  Prandtl    Number (Kzm/Kzh)                           [-]
31      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  Ls_inv    !  1 / Ls                      (Therry & Lacarr, 1983) [1/m]
32      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  ML_inv    !  1 / ML  (Mixing      Length, Therry & Lacarr, 1983) [1/m]
33      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  DL_inv    !  1 / DL  (Dissipation Length, Therry & Lacarr, 1983) [1/m]
34      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  Dissip    !           Dissipation                              [m2/s3]
35      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  TKEvav    !           TKE         Vertical moving Average      [m2/s2]
36      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  epsvav    !           Dissipation Vertical moving Average      [m2/s3]
37      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  pkt       !           Reduced     Potential       Temperature      [X]
38
39
40      end module Mod_genTKE_RUN
Note: See TracBrowser for help on using the repository browser.