scale_random Module Reference

module RANDOM More...

Functions/Subroutines
subroutine, public	random_setup
	Setup. More...
subroutine, public	random_get (var)
	Get random number. More...

Detailed Description

module RANDOM

Description

random number generation module

Author

Team SCALE

History

• 2012-03-28 (H.Yashiro) [new]

Function/Subroutine Documentation

random_setup()

subroutine, public scale_random::random_setup

(

)

Setup.

Definition at line 53 of file scale_random.F90.

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

Referenced by mod_rm_driver::scalerm(), and mod_rm_prep::scalerm_prep().

    use scale_process, only: &
       prc_mpistop
    implicit none

    namelist / param_random / &
       random_fix

    integer :: nseeds, ierr
    !---------------------------------------------------------------------------

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '++++++ Module[RANDOM] / Categ[COMMON] / Origin[SCALElib]'

    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_random,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_RANDOM. Check!'
       call prc_mpistop
    endif
    if( io_lnml ) write(io_fid_log,nml=param_random)

    call random_seed
    call random_seed(size=nseeds)

    allocate( random_seedvar(nseeds))

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '*** Array size for random seed:', nseeds
    if ( random_fix ) then
       if( io_l ) write(io_fid_log,*) '*** random seed is fixed.'
    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

random_get()

subroutine, public scale_random::random_get

(

real(rp), dimension(:,:,:), intent(out)

var

)

Get random number.

Definition at line 133 of file scale_random.F90.

Referenced by mod_mkinit::interporation_fact(), scale_atmos_phy_mp_suzuki10::mp_suzuki10(), scale_atmos_phy_mp_suzuki10::r_collcoag(), and mod_mkinit::read_sounding().

    implicit none

    real(RP), intent(out) :: var(:,:,:)
    !---------------------------------------------------------------------------

    call random_reset
    call random_number(var)

    return

Here is the caller graph for this function: