mod_da_admin Module Reference

module Data Assimilation admin More...

Functions/Subroutines
subroutine, public	da_admin_setup
	Setup. More...

Variables
character(len=h_short), public	da_type = 'OFF'
logical, public	da_do

Detailed Description

module Data Assimilation admin

Description

Data Assimilation administrator

Author

Team SCALE

NAMELIST

• PARAM_DA

  name	type	default value	comment
  DA_TYPE	character(len=H_SHORT)	'OFF'

  
  

History Output

No history output

Function/Subroutine Documentation

da_admin_setup()

subroutine, public mod_da_admin::da_admin_setup

Setup.

Definition at line 49 of file mod_da_admin.F90.

    use scale_prc, only: &
       prc_abort
    implicit none
 
    namelist / param_da / &
       da_type
 
    integer :: ierr
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("DA_ADMIN_setup",*) 'Setup'
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_da,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("DA_ADMIN_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("DA_ADMIN_setup",*) 'Not appropriate names in namelist PARAM_DA. Check!'
       call prc_abort
    endif
    log_nml(param_da)
 
    !-----< module component check >-----
 
    log_newline
    log_info("DA_ADMIN_setup",*) 'Data Assimilation components '
 
    if ( da_type /= 'OFF' ) then
       log_info_cont(*) 'Data Assimilation: ON, ', trim(da_type)
       da_do = .true.
    else
       log_info_cont(*) 'Data Assimilation: OFF'
       da_do = .false.
    endif
 
    return

References da_do, da_type, scale_io::io_fid_conf, 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:

Variable Documentation

da_type

character(len=h_short), public mod_da_admin::da_type = 'OFF'

Definition at line 32 of file mod_da_admin.F90.

  character(len=H_SHORT), public :: DA_TYPE = 'OFF'

Referenced by da_admin_setup().

da_do

logical, public mod_da_admin::da_do

Definition at line 34 of file mod_da_admin.F90.

  logical, public :: DA_do ! do data assimilation?

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