FrictionVelocityMod Module


Uses


Variables

Type Visibility Attributes Name Initial
type(frictionvel_parms_type), protected :: frictionvel_parms_inst

Derived Types

type, public ::  frictionvel_type

Components

Type Visibility Attributes Name Initial
real(kind=r8), public, pointer :: forc_hgt_u_patch(:)
real(kind=r8), public, pointer :: forc_hgt_t_patch(:)
real(kind=r8), public, pointer :: forc_hgt_q_patch(:)
real(kind=r8), public, pointer :: u10_patch(:)
real(kind=r8), public, pointer :: u10_clm_patch(:)
real(kind=r8), public, pointer :: va_patch(:)
real(kind=r8), public, pointer :: vds_patch(:)
real(kind=r8), public, pointer :: fv_patch(:)
real(kind=r8), public, pointer :: rb1_patch(:)
real(kind=r8), public, pointer :: rb10_patch(:)
real(kind=r8), public, pointer :: ram1_patch(:)
real(kind=r8), public, pointer :: z0m_patch(:)
real(kind=r8), public, pointer :: z0mv_patch(:)
real(kind=r8), public, pointer :: z0hv_patch(:)
real(kind=r8), public, pointer :: z0qv_patch(:)
real(kind=r8), public, pointer :: z0mg_col(:)
real(kind=r8), public, pointer :: z0hg_col(:)
real(kind=r8), public, pointer :: z0qg_col(:)

Type-Bound Procedures

procedure, public :: Init
procedure, public :: Restart

type, public ::  frictionvel_parms_type

Components

Type Visibility Attributes Name Initial
real(kind=r8), public :: zetamaxstable

Subroutines

public subroutine Init(this, bounds)

Arguments

Type IntentOptional Attributes Name
class(frictionvel_type) :: this
type(bounds_type), intent(in) :: bounds

public subroutine InitAllocate(this, bounds)

Arguments

Type IntentOptional Attributes Name
class(frictionvel_type) :: this
type(bounds_type), intent(in) :: bounds

public subroutine InitHistory(this, bounds)

Arguments

Type IntentOptional Attributes Name
class(frictionvel_type) :: this
type(bounds_type), intent(in) :: bounds

public subroutine InitCold(this, bounds)

Arguments

Type IntentOptional Attributes Name
class(frictionvel_type) :: this
type(bounds_type), intent(in) :: bounds

public subroutine Restart(this, bounds, ncid, flag)

Arguments

Type IntentOptional Attributes Name
class(frictionvel_type) :: this
type(bounds_type), intent(in) :: bounds
type(file_desc_t), intent(inout) :: ncid
character(len=*), intent(in) :: flag

public subroutine FrictionVelReadNML(NLFilename)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: NLFilename

public subroutine FrictionVelocity(lbn, ubn, fn, filtern, displa, z0m, z0h, z0q, obu, iter, ur, um, ustar, temp1, temp2, temp12m, temp22m, fm, frictionvel_inst, landunit_index)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: lbn
integer, intent(in) :: ubn
integer, intent(in) :: fn
integer, intent(in) :: filtern(fn)
real(kind=r8), intent(in) :: displa(lbn:)
real(kind=r8), intent(in) :: z0m(lbn:)
real(kind=r8), intent(in) :: z0h(lbn:)
real(kind=r8), intent(in) :: z0q(lbn:)
real(kind=r8), intent(in) :: obu(lbn:)
integer, intent(in) :: iter
real(kind=r8), intent(in) :: ur(lbn:)
real(kind=r8), intent(in) :: um(lbn:)
real(kind=r8), intent(out) :: ustar(lbn:)
real(kind=r8), intent(out) :: temp1(lbn:)
real(kind=r8), intent(out) :: temp2(lbn:)
real(kind=r8), intent(out) :: temp12m(lbn:)
real(kind=r8), intent(out) :: temp22m(lbn:)
real(kind=r8), intent(inout) :: fm(lbn:)
type(frictionvel_type), intent(inout) :: frictionvel_inst
logical, intent(in), optional :: landunit_index

public subroutine MoninObukIni(ur, thv, dthv, zldis, z0m, um, obu)

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(in) :: ur
real(kind=r8), intent(in) :: thv
real(kind=r8), intent(in) :: dthv
real(kind=r8), intent(in) :: zldis
real(kind=r8), intent(in) :: z0m
real(kind=r8), intent(out) :: um
real(kind=r8), intent(out) :: obu