module Surface roughness length More...

Functions/Subroutines
subroutine, public	roughness_setup

Variables
procedure(rl), pointer, public	roughness => NULL()

Detailed Description

module Surface roughness length

Description: surface roughness length

Author: Team SCALE

History

NAMELIST

PARAM_ROUGHNESS

name	type	default value	comment
ROUGHNESS_TYPE	character(len=H_SHORT)	'MOON07'	surface roughness length scheme
ROUGHNESS_VISCK	real(RP)	1.5E-5_RP	kinematic viscosity
ROUGHNESS_USTAR_MIN	real(RP)	1.0E-3_RP	minimum fiction velocity
ROUGHNESS_Z0M_MIN	real(RP)	1.0E-5_RP	minimum roughness length for momentum [m]
ROUGHNESS_Z0H_MIN	real(RP)	1.0E-5_RP	minimum roughness length for heat [m]
ROUGHNESS_Z0E_MIN	real(RP)	1.0E-5_RP	minimum roughness length for moisture [m]

PARAM_ROUGHNESS_MILLER92

name	type	default value	comment
ROUGHNESS_MILLER92_CM0	real(RP)	1.0E-3_RP	bulk coef. for U*
ROUGHNESS_MILLER92_Z0MI	real(RP)	0.0E-0_RP	base roughness length for momentum
ROUGHNESS_MILLER92_Z0MR	real(RP)	1.8E-2_RP	rough factor for momentum
ROUGHNESS_MILLER92_Z0MS	real(RP)	1.1E-1_RP	smooth factor for momentum
ROUGHNESS_MILLER92_Z0HI	real(RP)	1.4E-5_RP	base roughness length for heat
ROUGHNESS_MILLER92_Z0HR	real(RP)	0.0E-0_RP	rough factor for heat
ROUGHNESS_MILLER92_Z0HS	real(RP)	4.0E-1_RP	smooth factor for heat
ROUGHNESS_MILLER92_Z0EI	real(RP)	1.3E-4_RP	base roughness length for moisture
ROUGHNESS_MILLER92_Z0ER	real(RP)	0.0E-0_RP	rough factor for moisture
ROUGHNESS_MILLER92_Z0ES	real(RP)	6.2E-1_RP	smooth factor for moisture

PARAM_ROUGHNESS_MOON07

name type default value comment

ROUGHNESS_MOON07_ITELIM integer 10 maximum iteration number

History Output: No history output

Function/Subroutine Documentation

◆ roughness_setup()

subroutine, public scale_roughness::roughness_setup ( )

Definition at line 108 of file scale_roughness.F90.

References scale_const::const_grav, scale_const::const_karman, scale_grid_index::ie, scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_l, scale_stdio::io_lnml, scale_grid_index::is, scale_grid_index::je, scale_grid_index::js, dc_log::log(), scale_process::prc_mpistop(), and roughness.

Referenced by mod_rm_driver::scalerm().

     use scale_process, only: &
        prc_mpistop
     implicit none
 
     namelist / param_roughness / &
        roughness_type,      &
        roughness_visck,     &
        roughness_ustar_min, &
        roughness_z0m_min,   &
        roughness_z0h_min,   &
        roughness_z0e_min
 
     integer :: ierr
     !---------------------------------------------------------------------------
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '++++++ Module[ROUGHNESS] / Categ[COUPLER] / Origin[SCALElib]'
 
     !--- read namelist
     rewind(io_fid_conf)
     read(io_fid_conf,nml=param_roughness,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_ROUGHNESS. Check!'
        call prc_mpistop
     endif
     if( io_lnml ) write(io_fid_log,nml=param_roughness)
 
     select case( roughness_type )
     case ('MILLER92')
        roughness => roughness_miller92
        call roughness_miller92_setup
     case ('MOON07')
        roughness => roughness_moon07
        call roughness_moon07_setup
     case ('CONST')
        roughness => roughness_const
        call roughness_const_setup
     case default
        write(*,*) 'xxx invalid sea roughness length scheme (', trim(roughness_type), '). CHECK!'
        call prc_mpistop
     end select
 
     return