Go to the documentation of this file.
67 namelist / param_ocean_phy_roughness / &
78 log_info(
"OCEAN_PHY_ROUGHNESS_setup",*)
'Setup'
82 read(
io_fid_conf,nml=param_ocean_phy_roughness,iostat=ierr)
84 log_info(
"OCEAN_PHY_ROUGHNESS_setup",*)
'Not found namelist. Default used.'
85 elseif( ierr > 0 )
then
86 log_error(
"OCEAN_PHY_ROUGHNESS_setup",*)
'Not appropriate names in namelist PARAM_OCEAN_PHY_ROUGHNESS. Check!'
89 log_nml(param_ocean_phy_roughness)
100 namelist / param_ocean_phy_roughness_const / &
109 log_info(
"OCEAN_PHY_ROUGHNESS_const_setup",*)
'Setup'
113 read(
io_fid_conf,nml=param_ocean_phy_roughness_const,iostat=ierr)
115 log_info(
"OCEAN_PHY_ROUGHNESS_const_setup",*)
'Not found namelist. Default used.'
116 elseif( ierr > 0 )
then
117 log_error(
"OCEAN_PHY_ROUGHNESS_const_setup",*)
'Not appropriate names in namelist PARAM_OCEAN_PHY_ROUGHNESS_const. Check!'
120 log_nml(param_ocean_phy_roughness_const)
131 namelist / param_ocean_phy_roughness_seaice / &
140 log_info(
"OCEAN_PHY_ROUGHNESS_seaice_setup",*)
'Setup'
144 read(
io_fid_conf,nml=param_ocean_phy_roughness_seaice,iostat=ierr)
146 log_info(
"OCEAN_PHY_ROUGHNESS_seaice_setup",*)
'Not found namelist. Default used.'
147 elseif( ierr > 0 )
then
148 log_error(
"OCEAN_PHY_ROUGHNESS_seaice_setup",*)
'Not appropriate names in namelist PARAM_OCEAN_PHY_ROUGHNESS_seaice. Check!'
151 log_nml(param_ocean_phy_roughness_seaice)
163 integer,
intent(in) :: oia, ois, oie
164 integer,
intent(in) :: oja, ojs, oje
165 real(
rp),
intent(out) :: z0m(oia,oja)
166 real(
rp),
intent(out) :: z0h(oia,oja)
167 real(
rp),
intent(out) :: z0e(oia,oja)
190 integer,
intent(in) :: oia, ois, oie
191 integer,
intent(in) :: oja, ojs, oje
192 real(
rp),
intent(out) :: z0m(oia,oja)
193 real(
rp),
intent(out) :: z0h(oia,oja)
194 real(
rp),
intent(out) :: z0e(oia,oja)
subroutine, public ocean_phy_roughness_seaice(OIA, OIS, OIE, OJA, OJS, OJE, Z0M, Z0H, Z0E)
subroutine, public prc_abort
Abort Process.
real(rp), public ocean_phy_roughness_z0h
real(rp), public ocean_phy_roughness_z0m
subroutine, public ocean_phy_roughness_setup
real(rp), public ocean_phy_roughness_z0m_min
real(rp), public ocean_phy_roughness_ustar_min
subroutine, public ocean_phy_roughness_const(OIA, OIS, OIE, OJA, OJS, OJE, Z0M, Z0H, Z0E)
real(rp), public ocean_phy_roughness_visck
real(rp), public ocean_phy_roughness_z0h_min
real(rp), public ocean_phy_roughness_z0e
real(rp), public ocean_phy_roughness_seaice_z0m
integer, parameter, public rp
real(rp), public ocean_phy_roughness_seaice_z0h
module ocean / physics / surface roughness length
subroutine, public ocean_phy_roughness_seaice_setup
subroutine, public ocean_phy_roughness_const_setup
integer, public io_fid_conf
Config file ID.
real(rp), public ocean_phy_roughness_z0e_min
real(rp), public ocean_phy_roughness_seaice_z0e