mod_user Module Reference

module USER More...

Functions/Subroutines
subroutine, public	user_tracer_setup
	Config before setup of tracers. More...
subroutine, public	user_setup
	Setup before setup of other components. More...
subroutine, public	user_mkinit
	Make initial state. More...
subroutine, public	user_calc_tendency
	Calculation tendency. More...
subroutine, public	user_update
	User step. More...

Detailed Description

module USER

Description

User defined module

Author

Team SCALE

NAMELIST

• PARAM_USER

  name	type	default value	comment
  USER_DO	logical	.false.	do user step?

  
  

History Output

No history output

Function/Subroutine Documentation

user_tracer_setup()

subroutine, public mod_user::user_tracer_setup

(

)

Config before setup of tracers.

Definition at line 54 of file mod_user.F90.

References scale_tracer::tracer_regist().

Referenced by mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

    use scale_tracer, only: &
       tracer_regist
    implicit none

    ! if you want to add tracers, call the TRACER_regist subroutine.
    ! e.g.,
!    integer, parameter     :: NQ = 1
!    integer                :: QS
!    character(len=H_SHORT) :: NAME(NQ)
!    character(len=H_MID)   :: DESC(NQ)
!    character(len=H_SHORT) :: UNIT(NQ)
!
!    data NAME (/ 'name' /)
!    data DESC (/ 'tracer name' /)
!    data UNIT (/ 'kg/kg' /)
    !---------------------------------------------------------------------------

!    call TRACER_regist( QS,   & ! [OUT]
!                        NQ,   & ! [IN]
!                        NAME, & ! [IN]
!                        DESC, & ! [IN]
!                        UNIT  ) ! [IN]

    return

Here is the call graph for this function:

Here is the caller graph for this function:

user_setup()

subroutine, public mod_user::user_setup

(

)

Setup before setup of other components.

Definition at line 83 of file mod_user.F90.

References scale_io::io_fid_conf, and scale_prc::prc_abort().

Referenced by mod_rm_driver::rm_driver().

    use scale_prc, only: &
       prc_abort
    implicit none

    namelist / param_user / &
       user_do

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

    log_newline
    log_info("USER_setup",*) 'Setup'

    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_user,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("USER_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("USER_setup",*) 'Not appropriate names in namelist PARAM_USER. Check!'
       call prc_abort
    endif
    log_nml(param_user)

    log_newline
    log_info("USER_setup",*) 'This module is dummy.'

    return

Here is the call graph for this function:

Here is the caller graph for this function:

user_mkinit()

subroutine, public mod_user::user_mkinit

(

)

Make initial state.

Definition at line 116 of file mod_user.F90.

Referenced by mod_rm_prep::rm_prep().

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

    return

Here is the caller graph for this function:

user_calc_tendency()

subroutine, public mod_user::user_calc_tendency

(

)

Calculation tendency.

Definition at line 125 of file mod_user.F90.

Referenced by mod_rm_driver::restart_read(), and mod_rm_driver::rm_driver().

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

    return

Here is the caller graph for this function:

user_update()

subroutine, public mod_user::user_update

(

)

User step.

Definition at line 134 of file mod_user.F90.

References scale_prc::prc_abort().

Referenced by mod_rm_driver::rm_driver().

    use scale_prc, only: &
       prc_abort
    implicit none
    !---------------------------------------------------------------------------

    if ( user_do ) then
       call prc_abort
    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function: