mod_user.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
module mod_user
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_stdio
  use scale_prof
  use scale_grid_index
  use scale_tracer
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: user_setup
  public :: user_resume0
  public :: user_resume
  public :: user_step

  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  logical, private :: user_do = .false. 

  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine user_setup
    use scale_process, only: &
       prc_mpistop
    implicit none

    namelist / param_user / &
       user_do

    integer :: ierr
    !---------------------------------------------------------------------------

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '+++ Module[USER]/Categ[MAIN]'

    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_user,iostat=ierr)

    if( ierr < 0 ) then !--- missing
       if( io_l ) write(io_fid_log,*) '*** Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       write(*,*) 'xxx Not appropriate names in namelist PARAM_USER. Check!'
       call prc_mpistop
    endif
    if( io_lnml ) write(io_fid_log,nml=param_user)

    if( io_l ) write(io_fid_log,*) '*** This module is dummy.'

    return
  end subroutine user_setup

  !-----------------------------------------------------------------------------
  subroutine user_resume0
    implicit none
    !---------------------------------------------------------------------------

    return
  end subroutine user_resume0

  !-----------------------------------------------------------------------------
  subroutine user_resume
    implicit none
    !---------------------------------------------------------------------------

    return
  end subroutine user_resume

  !-----------------------------------------------------------------------------
  subroutine user_step
    use scale_process, only: &
       prc_mpistop
    implicit none
    !---------------------------------------------------------------------------

    if ( user_do ) then
       call prc_mpistop
    endif

    return
  end subroutine user_step

end module mod_user