do_stim Subroutine

private subroutine do_stim(dz, dt, ustar, Tw, S, Ta, precip, Qsw, Qfluxes)

Arguments

Arguments

Type IntentOptional AttributesName
real(kind=selected_real_kind), intent(inout) :: dz

layer thickness [m]

real(kind=selected_real_kind), intent(inout) :: dt

time step [s]

real(kind=selected_real_kind), intent(inout) :: ustar

surface friction velocity [m/s]

real(kind=selected_real_kind), intent(inout) :: Tw

water temperature [C]

real(kind=selected_real_kind), intent(inout) :: S

salinity [g/kg]

real(kind=selected_real_kind), intent(inout) :: Ta

air temperature [C]

real(kind=selected_real_kind), intent(inout) :: precip

precipitation [mm?]

real(kind=selected_real_kind), intent(inout) :: Qsw

short wave radiation [W/m^2]

private subroutine Qfluxes(T, qh, qe, qb)
Arguments
Type IntentOptional AttributesName
real(kind=selected_real_kind), intent(in) :: T

temperature [C]

real(kind=selected_real_kind), intent(out) :: qh

latent heat [W/m^2]

real(kind=selected_real_kind), intent(out) :: qe

sensible heat [W/m^2]

real(kind=selected_real_kind), intent(out) :: qb

net longwave radiation [W/m^2]


Called by

proc~~do_stim~~CalledByGraph proc~do_stim do_stim interface~do_ice do_ice interface~do_ice->proc~do_stim

Contents

None