mod_da_vars.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
#include "scalelib.h"
module mod_da_vars
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_io
  use scale_prof
  use scale_debug
  use scale_atmos_grid_cartesc_index
  use scale_tracer
 
  use scale_const, only: &
    undef => const_undef
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: da_vars_setup
  public :: da_vars_history
  public :: da_vars_finalize
  public :: da_vars_monitor
 
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  logical, public :: da_compute_ens_history = .false.
 
  integer, public, parameter :: obs_in_basename_maxsize = 1
 
  character(len=H_LONG), public :: obs_in_basename(obs_in_basename_maxsize)
  character(len=H_LONG), public :: obs_in_format  (obs_in_basename_maxsize)
  character(len=H_LONG), public :: obs_in_maskfile = ''
 
  logical, public :: positive_definite_q    = .false.
  logical, public :: positive_definite_qhyd = .false.
 
  integer, public :: obs_in_num = 1
 
  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine da_vars_setup
    use scale_prc, only: &
      prc_abort
    implicit none
 
    integer :: ierr
 
    namelist / param_da_vars / &
       da_compute_ens_history, &
       obs_in_basename,        &
       obs_in_format,          &
       obs_in_maskfile,        &
       positive_definite_q,    &
       positive_definite_qhyd
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("DA_vars_setup",*) 'Setup'
 
    obs_in_basename(:) = ''
    obs_in_format(:) = ''
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_da_vars,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("DA_vars_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("DA_vars_setup",*) 'Not appropriate names in namelist PARAM_DA_VARS. Check!'
       call prc_abort
    endif
    log_nml(param_da_vars)
 
    return
  end subroutine da_vars_setup
 
  !-----------------------------------------------------------------------------
  subroutine da_vars_history
    implicit none
    !---------------------------------------------------------------------------
 
    return
  end subroutine da_vars_history
 
  !-----------------------------------------------------------------------------
  subroutine da_vars_finalize
    implicit none
    !---------------------------------------------------------------------------
 
    return
  end subroutine da_vars_finalize
 
  !-----------------------------------------------------------------------------
  subroutine da_vars_monitor
    implicit none
    !---------------------------------------------------------------------------
 
    return
  end subroutine da_vars_monitor
 
end module mod_da_vars