mod_user Module Reference

module USER More...

Functions/Subroutines
subroutine, public	user_setup
	Setup before setup of other components. More...
subroutine, public	user_resume0
	Resuming operation, before calculating tendency. More...
subroutine, public	user_resume
	Resuming operation. More...
subroutine, public	user_step
	User step. More...

Detailed Description

module USER

Description

User defined module

Author

Team SCALE

History

• 2012-12-26 (H.Yashiro) [new]

Function/Subroutine Documentation

user_setup()

subroutine, public mod_user::user_setup

(

)

Setup before setup of other components.

Definition at line 55 of file mod_user.f90.

References scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_l, scale_stdio::io_lnml, and scale_process::prc_mpistop().

Referenced by mod_rm_driver::scalerm().

    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

Here is the call graph for this function:

Here is the caller graph for this function:

user_resume0()

subroutine, public mod_user::user_resume0

(

)

Resuming operation, before calculating tendency.

Definition at line 88 of file mod_user.f90.

Referenced by mod_rm_driver::resume_state().

    implicit none
    !---------------------------------------------------------------------------

    return

Here is the caller graph for this function:

user_resume()

subroutine, public mod_user::user_resume

(

)

Resuming operation.

Definition at line 97 of file mod_user.f90.

Referenced by mod_rm_driver::resume_state().

    implicit none
    !---------------------------------------------------------------------------

    return

Here is the caller graph for this function:

user_step()

subroutine, public mod_user::user_step

(

)

User step.

Definition at line 106 of file mod_user.f90.

References scale_process::prc_mpistop().

Referenced by mod_rm_driver::scalerm().

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

    if ( user_do ) then
       call prc_mpistop
    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function: