eat_config Module

Initialize the MPI environment - Fortran side. Defined constants here must be matched by Python


Uses

  • module~~eat_config~~UsesGraph module~eat_config eat_config mpi mpi module~eat_config->mpi iso_fortran_env iso_fortran_env module~eat_config->iso_fortran_env

Used by

  • module~~eat_config~~UsedByGraph module~eat_config eat_config program~eat_filter_pdaf eat_filter_pdaf program~eat_filter_pdaf->module~eat_config module~pdaf_wrapper pdaf_wrapper program~eat_filter_pdaf->module~pdaf_wrapper module~pdaf_wrapper->module~eat_config

Contents


Variables

TypeVisibility AttributesNameInitial
integer, public, parameter:: color_obs =1
integer, public, parameter:: color_model =2
integer, public, parameter:: color_filter =4
integer, public, parameter:: tag_timestr =1
integer, public, parameter:: tag_nobs =1
integer, public, parameter:: tag_iobs =2
integer, public, parameter:: tag_obs =3
integer, public, parameter:: tag_analysis =1
integer, public, parameter:: tag_forecast =2
integer, public, parameter:: signal_initialize =1
integer, public, parameter:: signal_integrate =2
integer, public, parameter:: signal_finalize =4
integer, public, parameter:: signal_recv_state =8
integer, public, parameter:: signal_send_state =16
integer, public, parameter:: debug =2048
integer, public, parameter:: info =1024
integer, public, parameter:: warn =512
integer, public, parameter:: error =256
integer, public, parameter:: fatal =128
integer, public, parameter:: silent =64
integer, public :: EAT_COMM_obs =MPI_COMM_NULL
integer, public :: EAT_COMM_model =MPI_COMM_NULL
integer, public :: EAT_COMM_filter =MPI_COMM_NULL
integer, public :: EAT_COMM_obs_model =MPI_COMM_NULL
integer, public :: EAT_COMM_obs_filter =MPI_COMM_NULL
integer, public :: EAT_COMM_model_filter =MPI_COMM_NULL
integer, public :: size_obs_comm =-1
integer, public :: size_model_comm =-1
integer, public :: size_filter_comm =-1
integer, public :: size_obs_model_comm =-1
integer, public :: size_obs_filter_comm =-1
integer, public :: size_model_filter_comm =-1
integer, public :: rank_obs_comm =-1
integer, public :: rank_model_comm =-1
integer, public :: rank_filter_comm =-1
integer, public :: rank_obs_model_comm =-1
integer, public :: rank_obs_filter_comm =-1
integer, public :: rank_model_filter_comm =-1
integer, public :: rank
integer, public :: nprocs
integer, private :: ierr
integer, private :: stderr =error_unit
integer, private :: stdout =output_unit

Subroutines

public subroutine init_eat_config(color)

Initialize MPI, define communicators and set variables

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: color

public subroutine version_mpi_config(mpi_version, library_version)

Collect MPI and MPI Library version info

Arguments

Type IntentOptional AttributesName
character(len=*), intent(inout) :: mpi_version
character(len=*), intent(inout) :: library_version