mod_da_vars Module Reference

module Data Assimilation Variables More...

Functions/Subroutines
subroutine, public	da_vars_setup
	Setup. More...
subroutine, public	da_vars_history
	History output set for data-assimilation variables. More...
subroutine, public	da_vars_finalize
	Finalize. More...
subroutine, public	da_vars_monitor
	monitor output More...

Variables
logical, public	da_compute_ens_history = .false.
integer, parameter, public	obs_in_basename_maxsize = 1
character(len=h_long), dimension(obs_in_basename_maxsize), public	obs_in_basename
character(len=h_long), dimension(obs_in_basename_maxsize), public	obs_in_format
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

Detailed Description

module Data Assimilation Variables

Description

Container for Data Assimilation variables

Author

Team SCALE

NAMELIST

• PARAM_DA_VARS

  name	type	default value	comment
  DA_COMPUTE_ENS_HISTORY	logical	.false.
  OBS_IN_BASENAME	character(len=H_LONG), dimension(OBS_IN_BASENAME_MAXSIZE)
  OBS_IN_FORMAT	character(len=H_LONG), dimension(OBS_IN_BASENAME_MAXSIZE)
  OBS_IN_MASKFILE	character(len=H_LONG)	''
  POSITIVE_DEFINITE_Q	logical	.false.
  POSITIVE_DEFINITE_QHYD	logical	.false.

  
  

History Output

No history output

Function/Subroutine Documentation

da_vars_setup()

subroutine, public mod_da_vars::da_vars_setup

Setup.

Definition at line 68 of file mod_da_vars.F90.

    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

References da_compute_ens_history, scale_io::io_fid_conf, obs_in_basename, obs_in_format, obs_in_maskfile, positive_definite_q, positive_definite_qhyd, and scale_prc::prc_abort().

Referenced by mod_rm_driver::rm_driver().

Here is the call graph for this function:

Here is the caller graph for this function:

da_vars_history()

subroutine, public mod_da_vars::da_vars_history

History output set for data-assimilation variables.

Definition at line 106 of file mod_da_vars.F90.

    implicit none
    !---------------------------------------------------------------------------
 
    return

Referenced by mod_rm_driver::restart_read(), and mod_rm_driver::rm_driver().

Here is the caller graph for this function:

da_vars_finalize()

subroutine, public mod_da_vars::da_vars_finalize

Finalize.

Definition at line 115 of file mod_da_vars.F90.

    implicit none
    !---------------------------------------------------------------------------
 
    return

Referenced by mod_rm_driver::rm_driver().

Here is the caller graph for this function:

da_vars_monitor()

subroutine, public mod_da_vars::da_vars_monitor

monitor output

Definition at line 124 of file mod_da_vars.F90.

    implicit none
    !---------------------------------------------------------------------------
 
    return

Referenced by mod_rm_driver::restart_read(), and mod_rm_driver::rm_driver().

Here is the caller graph for this function:

Variable Documentation

da_compute_ens_history

logical, public mod_da_vars::da_compute_ens_history = .false.

Definition at line 42 of file mod_da_vars.F90.

  logical, public :: DA_COMPUTE_ENS_HISTORY = .false.

Referenced by mod_da_driver::da_driver_update(), and da_vars_setup().

obs_in_basename_maxsize

integer, parameter, public mod_da_vars::obs_in_basename_maxsize = 1

Definition at line 44 of file mod_da_vars.F90.

  integer, public, parameter :: OBS_IN_BASENAME_MAXSIZE = 1

obs_in_basename

character(len=h_long), dimension(obs_in_basename_maxsize), public mod_da_vars::obs_in_basename

Definition at line 46 of file mod_da_vars.F90.

  character(len=H_LONG), public :: OBS_IN_BASENAME(OBS_IN_BASENAME_MAXSIZE)

Referenced by mod_da_driver::da_driver_update(), and da_vars_setup().

obs_in_format

character(len=h_long), dimension (obs_in_basename_maxsize), public mod_da_vars::obs_in_format

Definition at line 47 of file mod_da_vars.F90.

  character(len=H_LONG), public :: OBS_IN_FORMAT  (OBS_IN_BASENAME_MAXSIZE)

Referenced by mod_da_driver::da_driver_update(), and da_vars_setup().

obs_in_maskfile

character(len=h_long), public mod_da_vars::obs_in_maskfile = ''

Definition at line 48 of file mod_da_vars.F90.

  character(len=H_LONG), public :: OBS_IN_MASKFILE = ''

Referenced by mod_da_driver::da_driver_update(), and da_vars_setup().

positive_definite_q

logical, public mod_da_vars::positive_definite_q = .false.

Definition at line 50 of file mod_da_vars.F90.

  logical, public :: POSITIVE_DEFINITE_Q    = .false.

Referenced by mod_da_driver::da_driver_update(), and da_vars_setup().

positive_definite_qhyd

logical, public mod_da_vars::positive_definite_qhyd = .false.

Definition at line 51 of file mod_da_vars.F90.

  logical, public :: POSITIVE_DEFINITE_QHYD = .false.

Referenced by mod_da_driver::da_driver_update(), and da_vars_setup().

obs_in_num

integer, public mod_da_vars::obs_in_num = 1

Definition at line 53 of file mod_da_vars.F90.

  integer, public :: OBS_IN_NUM = 1

Referenced by mod_da_driver::da_driver_setup(), and mod_da_driver::da_driver_update().