scale_bulkflux Module Reference

module Surface bulk flux More...

Functions/Subroutines
subroutine, public	bulkflux_setup

Variables
procedure(bc), pointer, public	bulkflux => NULL()

Detailed Description

module Surface bulk flux

Description

calculation of surface bulk flux

Author

Team SCALE

History

NAMELIST

• PARAM_BULKFLUX

  name	type	default value	comment
  BULKFLUX_TYPE	character(len=H_SHORT)	'B91W01'
  BULKFLUX_ITR_MAX	integer	100	maximum iteration number
  BULKFLUX_RES_MIN	real(RP)	1.0E+0_RP	minimum value of residual
  BULKFLUX_ERR_MIN	real(RP)	1.0E-2_RP	minimum value of error
  BULKFLUX_WSCF	real(RP)	1.2_RP	empirical scaling factor of Wstar (Beljaars 1994)
  BULKFLUX_UABS_MIN	real(RP)	1.0E-2_RP	minimum of Uabs [m/s]
  BULKFLUX_RIB_MIN	real(RP)	1.0E-4_RP	minimum of RiB [no unit]
  BULKFLUX_WSTAR_MIN	real(RP)	1.0E-4_RP	minimum of W* [m/s]

  
  

History Output

No history output

Function/Subroutine Documentation

bulkflux_setup()

subroutine, public scale_bulkflux::bulkflux_setup

(

)

Definition at line 113 of file scale_bulkflux.F90.

References bulkflux, scale_const::const_cpdry, scale_const::const_eps, scale_const::const_grav, scale_const::const_karman, scale_const::const_pre00, scale_const::const_rdry, scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_l, scale_stdio::io_lnml, dc_log::log(), and scale_process::prc_mpistop().

Referenced by mod_rm_driver::scalerm().

    use scale_process, only: &
       prc_mpistop
    implicit none

    namelist / param_bulkflux / &
       bulkflux_type,      &
       bulkflux_itr_max,   &
       bulkflux_res_min,   &
       bulkflux_err_min,   &
       bulkflux_wscf,      &
       bulkflux_uabs_min,  &
       bulkflux_rib_min,   &
       bulkflux_wstar_min

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

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

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

    select case( bulkflux_type )
    case ( 'U95' )
       if( io_l ) write(io_fid_log,*) '*** Scheme for surface bulk flux : Uno et al.(1995)'
       bulkflux => bulkflux_u95
    case ( 'B91W01' )
       if( io_l ) write(io_fid_log,*) '*** Scheme for surface bulk flux : Beljaars (1991) and Wilson (2001)'
       bulkflux => bulkflux_b91w01
    case default
       write(*,*) ' xxx Unsupported 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

bulkflux

procedure(bc), pointer, public scale_bulkflux::bulkflux => NULL()

Definition at line 71 of file scale_bulkflux.F90.

Referenced by scale_atmos_phy_sf_bulk::atmos_phy_sf_bulk(), bulkflux_setup(), scale_land_sfc_slab::land_sfc_slab(), scale_ocean_sfc_slab::ocean_sfc_slab(), and scale_urban_phy_slc::urban_phy_slc().

  procedure(bc), pointer :: bulkflux => null()