source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/sisvat/LMDZCTR.F90 @ 2404

Last change on this file since 2404 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 3.8 KB
Line 
1MODULE LMDZCTR
2
3IMPLICIT NONE
4! +                                                               
5                                                                               
6      logical           reaVAR    ! Input INI: Prev.Dyn.Simulat. (MAR, GCM)     
7      logical           reaLBC    ! Input LBC: Prev.Dyn.Simulat. (MAR, GCM)     
8      logical           safVAR    ! Full Output on Saving Files   MARxxx.DAT   
9      logical           sALONE    !                                             
10      logical           geoNST    !                                             
11      logical           conmas    ! Mass       Conserv. Constraint Init.Switch 
12      logical           potvor    ! P.-Vortic. Conserv. Constraint Init.Switch 
13      logical           hamfil    ! Initial Filtered Fields (Time, Hamming)     
14      logical           brocam    ! Brown and Campana  Time      Scheme Switch 
15      logical           LFrBAK    ! Leap-Frog Backward Advection Scheme Switch 
16      logical           openLB    !                                             
17      logical           sommlb    !                                             
18      logical           FirstC    !                                             
19      logical           qqmass    ! Mass       Conservation             Switch 
20      logical           turhor    ! Horizontal Diffusion (Smagorinsky)  Switch 
21      logical           SBLitr    !                                             
22      logical           tur_25    !                                             
23      logical           convec    ! Convective  Adjustment              Switch 
24      logical           MFLX_d    ! Convective  Adjustment (deep)       Switch 
25      logical           MFLX_s    ! Convective  Adjustment (shallow)    Switch 
26      logical           micphy    ! Cloud       Microphysics            Switch 
27      logical           fracld    ! Fractional  Cloudiness              Switch 
28      logical           chimod    ! Atmospheric Chemical Model          Switch 
29      logical           physic    ! Atmospheric/Surface Physics         Switch 
30      logical           polmod    ! Interactive Polynya    is           Switch 
31      logical           snomod    ! Interactive Snow Model is           Switch 
32      logical           BloMod    !                                             
33      logical           vegmod    ! Interactive SVAT                    Switch 
34      logical           VSISVAT   !                                             
35      logical           no_vec    ! Scalar     (NO Vectorization)       Switch 
36                                                                               
37                                                                               
38      integer           itexpe,iterun,nterun,nbhour,itConv                     
39      integer           iboucl,nboucl,nprint,ipr_nc,npr_nc                     
40      integer           maptyp                                                 
41      integer           log_1D                                                 
42                                                                               
43      real*8            Robert                                                 
44      real*8            rrmin ,rrmax                                           
45      real*8            rxbase,rxfact                                           
46      real*8            fxlead                                                 
47      real*8            tMFLXd        ! d(time) between 2 deep convection CALL 
48      real*8            aMFLXd,aMFLXs ! adjustment times (deep, shallow)       
49                                                                               
50      character*16      fnam                                                   
51
52
53END MODULE LMDZCTR
54
Note: See TracBrowser for help on using the repository browser.