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
    use scale_const, only: &
       const_finalize
    implicit none
    !---------------------------------------------------------------------------
 
    call prof_rapend( 'Main', 0 )
 
    call file_close_all
 
    call const_finalize
 
    call prof_rapreport
 
    ! stop mpi
    call prc_mpifinish
 
    return
  end subroutine scale_finalize
 
end module scale