enkfpar_module.f90

来自「CLM集合卡曼滤波数据同化算法」· F90 代码 · 共 97 行

  MODULE enkfpar_module

!=======================================================================
!      Source file: enkfpar_module.f90
!      author     : QinJun , 6/5/2004 
! 
!=======================================================================

      IMPLICIT NONE
!  ---------------------------------------------------
! |  define logical variable for judging whether or   |
! |  not remote sensing data exist                    | 
!  ---------------------------------------------------

      logical :: OBS     !if exist,OBS=.TRUE.;if not, OBS=.FALSE.

      integer::  lun_obs ! logical unit number for observation file 

! --------------------------
! ** define ensemble size **
! --------------------------

      integer, parameter :: Ne = 50 

! -----------------------------------------------------------------
! ** define observation configration of passive microwave sensor **
! -----------------------------------------------------------------

    real,parameter :: Ang = 55.5 ! viewing zenith angle [degrees]

    real,parameter :: Fre_one = 6.95 ! observation frequency [GHz]

    real,parameter :: Fre_two = 10.05 ! observation frequency [GHz] 

    real,parameter :: SinScaAlb_one = 0.03 ! single scattering albedo for Fre_one

    real,parameter :: SinScaAlb_two = 0.03 ! single scattering albedo for Fre_two 
    real,parameter :: b_one = 0.5      ! coefficient for Fre_one 

    real,parameter :: b_two = 0.5      ! coefficient for Fre_two 

    real,parameter :: Co_deg = 0.5      ! roughness of  soil [cm] 

    real,parameter :: Co_len = 4.0      ! correlation length of soil [cm]

! -------------------------------------------------------
!|    define model error and observation operator error  | 
!|    they are initilized in the procedure enkf_ini()    | 
! ------------------------------------------------------- 

    real,dimension(1:10,1:10) :: W ! model error covariance 32 by 32

    real :: Q ! observation operator error covariance 1 by 1

!  -------------------------------------------------------
! | define the variable IDUM for generating independent   |
! | random number with distribution N(0,1)                | 
!  -------------------------------------------------------

    integer::idum = -2000     

!   -----------------------------------------------------
!  | define the coefficients Beta for the equation       |
!  | Rho(h)= exp(-Beta*h)                                | 
!  |                                                     |
!   -----------------------------------------------------

    real, parameter :: Betaw = 5.5 ! w stands for water
    real, parameter :: Betai = 5.5 ! i stands for ice
    real, parameter :: Betat = 5.5 ! t stands for temperature



!  -------------------------------------------------------
! | define the correlation coefficients matrix            |
! | and the noise fraction coefficients vector            |
! |                                                       |
!  ------------------------------------------------------
   
    real, dimension(1:10,1:10) :: Rhoc   ! c stands for correlation 
    real, dimension(1:10)      :: Sigman ! n stands for noise 
                                         ! these two parameters will be given  
                                         ! in the process of initionalization

! ----------------------------------------------------------
!| define two coefficients used for mapping clm soil temperature 
!| to simulated MODIS temperature
!|
!|
! ----------------------------------------------------------

    real,parameter:: reg_one=62.46947
    real,parameter:: reg_two=0.78362


  END MODULE enkfpar_module