module ATMOSPHERE / Physics Surface bulk coefficient More...

Functions/Subroutines
subroutine, public	atmos_phy_sf_bulkcoef_setup

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

Detailed Description

module ATMOSPHERE / Physics Surface bulk coefficient

Description: Calculation of Bulk coefficient at the surface

Author: Team SCALE

History

2014-02-18 (T.Yamaura) [new]
2014-05-20 (H.Yashiro) [mod] move from coupler to atmos_phy_sf

NAMELIST

PARAM_ATMOS_PHY_SF_BULKCOEF

name	type	default value	comment
ATMOS_PHY_SF_BULKCOEF_TYPE	character(len=H_SHORT)	'BH91'
ATMOS_PHY_SF_BULKCOEF_CM_MAX	real(RP)	2.5E-3_RP	maximum limit of bulk coefficient for momentum [NIL]
ATMOS_PHY_SF_BULKCOEF_CH_MAX	real(RP)	1.0E+0_RP	maximum limit of bulk coefficient for heat [NIL]
ATMOS_PHY_SF_BULKCOEF_CE_MAX	real(RP)	1.0E+0_RP	maximum limit of bulk coefficient for moisture [NIL]
ATMOS_PHY_SF_BULKCOEF_CM_MIN	real(RP)	1.0E-5_RP	minimum limit of bulk coefficient for momentum [NIL]
ATMOS_PHY_SF_BULKCOEF_CH_MIN	real(RP)	1.0E-5_RP	minimum limit of bulk coefficient for heat [NIL]
ATMOS_PHY_SF_BULKCOEF_CE_MIN	real(RP)	1.0E-5_RP	minimum limit of bulk coefficient for moisture [NIL]

History Output: No history output

Function/Subroutine Documentation

◆ atmos_phy_sf_bulkcoef_setup()

subroutine, public scale_atmos_phy_sf_bulkcoef::atmos_phy_sf_bulkcoef_setup ( )

Definition at line 98 of file scale_atmos_phy_sf_bulkcoef.F90.

References atmos_phy_sf_bulkcoef, scale_const::const_eps, scale_const::const_grav, scale_const::const_karman, scale_const::const_pi, 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(), and scale_process::prc_mpistop().

Referenced by scale_atmos_phy_sf_bulk::atmos_phy_sf_bulk_setup().

     use scale_process, only: &
        prc_mpistop
     implicit none
 
     namelist / param_atmos_phy_sf_bulkcoef / &
        atmos_phy_sf_bulkcoef_type,   &
        atmos_phy_sf_bulkcoef_cm_max, &
        atmos_phy_sf_bulkcoef_ch_max, &
        atmos_phy_sf_bulkcoef_ce_max, &
        atmos_phy_sf_bulkcoef_cm_min, &
        atmos_phy_sf_bulkcoef_ch_min, &
        atmos_phy_sf_bulkcoef_ce_min
 
     integer :: ierr
     !---------------------------------------------------------------------------
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '*** Bulk coefficient parameter'
 
     !--- read namelist
     rewind(io_fid_conf)
     read(io_fid_conf,nml=param_atmos_phy_sf_bulkcoef,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_ATMOS_PHY_SF_BULKCOEF. Check!'
        call prc_mpistop
     endif
     if( io_lnml ) write(io_fid_log,nml=param_atmos_phy_sf_bulkcoef)
 
     select case( atmos_phy_sf_bulkcoef_type )
     case ('U95')
        atmos_phy_sf_bulkcoef => atmos_phy_sf_bulkcoef_uno
     case ('BH91')
        atmos_phy_sf_bulkcoef => atmos_phy_sf_bulkcoef_beljaars
     case default
        write(*,*) 'xxx invalid bulk scheme (', trim(atmos_phy_sf_bulkcoef_type), '). CHECK!'
        call prc_mpistop
     end select
 
     return