scale.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
#include "scalelib.h"
module scale
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_io
  use scale_prof

  use scale_prc, only: &
     prc_abort
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: scale_init
  public :: scale_finalize

  ! from scale_process
  public :: prc_abort

  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  ! from scale_precision
  public :: rp
  public :: dp
  public :: sp

  ! from scale_io
  public :: h_short
  public :: h_mid
  public :: h_long
  public :: io_fid_conf
  public :: io_fid_log
  public :: io_fid_nml
  public :: io_l
  public :: io_nml
  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine scale_init( &
       app_name )
    use scale_prc, only: &
       prc_mpistart,        &
       prc_singlecom_setup, &
       prc_errhandler_setup
    use scale_const, only: &
       const_setup
    implicit none

    character(len=*), optional :: app_name

    character(len=H_SHORT) :: name

    ! for prc setup
    integer :: comm
    integer :: nprocs
    integer :: myrank
    logical :: ismaster
    !---------------------------------------------------------------------------

    if ( present(app_name) ) then
       name = app_name
    else
       name = "SCALE APPLICATION"
    end if

    ! start MPI
    call prc_mpistart( comm ) ! [OUT]

    ! setup MPI communicator
    call prc_singlecom_setup( comm,    & ! [IN]
                              nprocs,  & ! [OUT]
                              myrank,  & ! [OUT]
                              ismaster ) ! [OUT]

    ! setup errhandler
    call prc_errhandler_setup( .false., & ! [IN]
                               ismaster ) ! [IN]

    ! setup scale_io
    call io_setup( name, allow_noconf = .true. )

    ! setup log
    call io_log_setup( myrank, ismaster )

    ! setup profiler
    call prof_setup

    ! setup constants
    call const_setup

    call prof_rapstart( 'Main', 0 )

    return
  end subroutine scale_init

  !-----------------------------------------------------------------------------
  subroutine scale_finalize
    use scale_file, only: &
       file_close_all
    use scale_prc, only: &
       prc_mpifinish
    implicit none
    !---------------------------------------------------------------------------

    call prof_rapend( 'Main', 0 )

    call file_close_all

    call prof_rapreport

    ! stop mpi
    call prc_mpifinish

    return
  end subroutine scale_finalize

end module scale