scale_roughness Module Reference

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_fid_nml, scale_stdio::io_l, scale_stdio::io_nml, scale_grid_index::is, scale_grid_index::je, scale_grid_index::js, 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_nml ) write(io_fid_nml,nml=param_roughness)

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '*** Scheme for ocean roughness length : ', trim(roughness_type)
    select case(roughness_type)
    case('MILLER92')
       if( io_l ) write(io_fid_log,*) '*** => Miller (1992)'
       roughness => roughness_miller92
       call roughness_miller92_setup
    case('MOON07')
       if( io_l ) write(io_fid_log,*) '*** => Moon et al. (2007)'
       roughness => roughness_moon07
       call roughness_moon07_setup
    case('CONST')
       if( io_l ) write(io_fid_log,*) '*** => Constant.'
       roughness => roughness_const
       call roughness_const_setup
    case default
       write(*,*) 'xxx Unsupported ROUGHNESS_type. STOP'
       call prc_mpistop
    end select

    return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

roughness

procedure(rl), pointer, public scale_roughness::roughness => NULL()

Definition at line 61 of file scale_roughness.F90.

Referenced by scale_atmos_phy_sf_bulk::atmos_phy_sf_bulk(), mod_ocean_phy_driver::ocean_phy_driver(), and roughness_setup().

  procedure(rl), pointer :: ROUGHNESS => null()