build_tables.F90

program build_tables
  !! program to build 3 lookup tables for tempo microphysics
  !!
  !! example build `make build_tables -f Makefile.intel mpi=1`
  !!
 
  use module_mp_tempo_params, only : table_dp
  use module_mp_tempo_tables, only : tempo_build_tables
  use module_mp_tempo_cfgs, only : ty_tempo_cfgs
 
#ifdef build_tables_with_mpi
  use mpi_f08 
#endif
 
  implicit none
 
  integer :: build_tables_rank, build_tables_num_proc
  type(ty_tempo_cfgs) :: tempo_cfgs
 
#ifdef build_tables_with_mpi
    integer :: ierror, mpi_dp_size  
#endif
 
  build_tables_rank = 0
  build_tables_num_proc = 1
 
#ifdef build_tables_with_mpi
  call mpi_init(ierror)
  call mpi_comm_size(mpi_comm_world, build_tables_num_proc, ierror)
  call mpi_comm_rank(mpi_comm_world, build_tables_rank, ierror)
  call mpi_type_size(mpi_double_precision, mpi_dp_size, ierror)
  if (mpi_dp_size /= table_dp) then
    write(*,'(A,I1,A,I1,A)') 'MPI double precision size (', mpi_dp_size, &
      ') does not match fortran double precision size (', table_dp, ')'
    error stop 'MPI and fortran double precision sizes do not match.'
  endif
#endif
 
  call tempo_build_tables(build_tables_rank, build_tables_num_proc, tempo_cfgs)
 
#ifdef build_tables_with_mpi
  call mpi_finalize(ierror)
#endif
 
end program build_tables