Initialize the MPI environment - Fortran side. Defined constants here must be matched by Python
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
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 |
Initialize MPI, define communicators and set variables
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | color |
Collect MPI and MPI Library version info
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(inout) | :: | mpi_version | |||
character(len=*), | intent(inout) | :: | library_version |