SURFEX v7.3
General documentation of Surfex
 All Classes Files Functions Variables Typedefs
/home/dasprezs/EXPORT_v7_3/src/SURFEX/modd_assim.F90
Go to the documentation of this file.
00001 !     ##################
00002       MODULE MODD_ASSIM
00003 !     ##################
00004 !
00005 !!****  *MODD_ASSIM - declaration of keys for assimilation schemes
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !!
00011 !!**  IMPLICIT ARGUMENTS
00012 !!    ------------------
00013 !!      None 
00014 !!
00015 !!    REFERENCE
00016 !!    ---------
00017 !!
00018 !!    AUTHOR
00019 !!    ------
00020 !!      L. Jarlan   *Meteo France*
00021 !!
00022 !!    MODIFICATIONS
00023 !!    -------------
00024 !!      Original       23/02/05
00025 ! 
00026 !       Inclusion of OI constants 21/05/09 (J.-F. Mahfouf)  
00027 !!       Add all assim keys         04/2012  T.Aspelien
00028 !
00029 !*       0.   DECLARATIONS
00030 !             ------------
00031 !
00032 IMPLICIT NONE
00033 
00034 !-------------------------------------------------------------------------------
00035 !
00036 ! Assimilation Scheme Options:
00037 !
00038  LOGICAL                               :: LASSIM               ! Assimilation or not
00039                                                                !'.TRUE.'
00040                                                                !'.FALSE.'
00041  LOGICAL                               :: LPRINT               ! Verbose
00042  LOGICAL                               :: LAROME               ! If reading AROME fields
00043  LOGICAL                               :: LECSST               ! Use ECMWF SST
00044  LOGICAL                               :: LAESST               ! SST analysis performed
00045  LOGICAL                               :: LAESNM               ! Update snow analysis
00046  LOGICAL                               :: LALADSURF            
00047  LOGICAL                               :: LREAD_SST_FROM_FILE  ! Read SST from file
00048  LOGICAL                               :: LWATERTG2            ! Use deep soil temperature as lake temp.
00049  LOGICAL                               :: LEXTRAP_SEA          ! Extrapolation of sea points
00050  LOGICAL                               :: LEXTRAP_WATER        ! Extrapolation of inland water  points
00051  LOGICAL                               :: LEXTRAP_NATURE       ! Extrapolation of nature points
00052  CHARACTER(LEN=5)                      :: CASSIM_ISBA          ! OI/EKF
00053  CHARACTER(LEN=5)                      :: CASSIM               ! type of correction
00054                                                                ! 'PLUS ' (default)
00055                                                                ! 'AVERA'            
00056                                                                ! '2DVAR'
00057  LOGICAL                               :: LPRT                 ! Running VARASSIM in a perturbation mode
00058  LOGICAL                               :: LSIM                 ! Running VARASSIM in a reading mode
00059  LOGICAL                               :: LBEV                 ! Running VARASSIM to evolve B
00060  LOGICAL                               :: LBFIXED
00061  INTEGER                               :: NOBSTYPE
00062  INTEGER, PARAMETER                    :: NOBSMAX = 3
00063  REAL,DIMENSION(NOBSMAX)               :: YERROBS              ! Observational standard deviation
00064  INTEGER,DIMENSION(NOBSMAX)            :: INCO                 ! Select the type of observations to be assimilated
00065  INTEGER                               :: IVAR                 ! counter for ctnrl vars
00066  INTEGER                               :: NVAR                 ! number of cntrl vars
00067  INTEGER, PARAMETER                    :: NVARMAX = 4
00068  REAL,DIMENSION(NVARMAX)               :: TPRT_M               ! The perturbation amplitude (max dim)
00069  REAL,DIMENSION(NVARMAX)               :: XSIGMA_M             ! covariance of background errors if B is fixed (max dim)
00070 !                                                              ! covariance of model errors if B evolving (max dim)
00071  CHARACTER(LEN=3),DIMENSION(NVARMAX)   :: XVAR_M ! X is ctrl   ! Name of control variables (syntax of surfex in PREP.txt file ) (max dim)
00072  CHARACTER(LEN=100),DIMENSION(NVARMAX) :: PREFIX_M             ! The prefix of the control variables (in PREP.txt file) (max dim)
00073  INTEGER,DIMENSION(NVARMAX)            :: INCV                 ! Select the control variables to be used
00074  REAL                                  :: SCALE_Q              ! scaling factor of Q matrix w.r.t. the initial B
00075 !
00076 ! Constants and options of the soil OI analysis
00077 !
00078  LOGICAL ::  LHUMID,  LIMVEG, LISSEW,   L_SM_WP, LFGEL,      LCLIM,   LLDHMT,  
00079              LOBSWG,  LOBS2M 
00080  INTEGER ::  MINDJ,   NNEBUL, NNEIGT,   NNEIGW,  NR_SM_WP,   NECHGU,  NTVGLA,  
00081              NSEAICE, NLISSEW,          IDJ,     ITRAD 
00082  REAL    ::  ANEBUL,  RCLIMN, RCLIMTP,  RCLIMTS, RCLIMV,     RCLIMWP, RCLIMWS, 
00083              SCOEFH,  SCOEFT, SEVAP,    SIGH2MO, SIGT2MO,    SNEIGT,  SNEIGW,  
00084              SPRECIP, SWFC,   V10MX,    RD1,     RTINER,     WCRIN,   WPMX,    
00085              WSMX,    TMERGL, RZHZ0G,   RCLIMCA, RCLISST,    RWPIA,   RWPIB,   
00086              RSNSA,   RSNSB,  SALBM,    SALBB,   SEMIB,      SZZ0B,   SMU0,    
00087              SICE,    SEMIM,  RA_SM_WP, RSCALDW, SPRECIP2,                     
00088              REPSM,   RCDTR,  SIGHP1,   SIGT2MR, SIGH2MR,    RSABR,            
00089              RARGR,   GWFC,   EWFC,     GWWILT,  EWWILT,     G1WSAT,  G2WSAT,  
00090              REPS1,   REPS2,  REPS3,    ADWR,    SODELX(0:9),                  
00091              SIGWGO,  SIGWGB, SIGW2B,   RTHR_QC, SIGWGO_MAX, RSCAL_JAC
00092 !
00093 END MODULE MODD_ASSIM