lmdz_call_atke Module


Uses

  • module~~lmdz_call_atke~~UsesGraph module~lmdz_call_atke lmdz_call_atke module~lmdz_atke_exchange_coeff lmdz_atke_exchange_coeff module~lmdz_call_atke->module~lmdz_atke_exchange_coeff

Used by

  • module~~lmdz_call_atke~~UsedByGraph module~lmdz_call_atke lmdz_call_atke module~pbl_surface_mod pbl_surface_mod module~pbl_surface_mod->module~lmdz_call_atke module~pbl_surface_mod~2 pbl_surface_mod module~pbl_surface_mod~2->module~lmdz_call_atke proc~old_lmdz1d old_lmdz1d proc~old_lmdz1d->module~pbl_surface_mod proc~phyredem~2 phyredem proc~phyredem~2->module~pbl_surface_mod proc~iniaqua~2 iniaqua proc~iniaqua~2->module~pbl_surface_mod proc~physiq physiq proc~physiq->module~pbl_surface_mod proc~phys_output_write~2 phys_output_write proc~phys_output_write~2->module~pbl_surface_mod proc~phyredem phyredem proc~phyredem->module~pbl_surface_mod proc~change_srf_frac change_srf_frac proc~change_srf_frac->module~pbl_surface_mod proc~scm scm proc~scm->module~pbl_surface_mod proc~create_etat0_unstruct~2 create_etat0_unstruct proc~create_etat0_unstruct~2->module~pbl_surface_mod proc~phys_output_write_spl~2 phys_output_write_spl proc~phys_output_write_spl~2->module~pbl_surface_mod proc~iniaqua~3 iniaqua proc~iniaqua~3->module~pbl_surface_mod proc~phyetat0 phyetat0 proc~phyetat0->module~pbl_surface_mod proc~phyetat0~2 phyetat0 proc~phyetat0~2->module~pbl_surface_mod proc~phys_output_write_spl phys_output_write_spl proc~phys_output_write_spl->module~pbl_surface_mod proc~create_etat0_unstruct create_etat0_unstruct proc~create_etat0_unstruct->module~pbl_surface_mod proc~physiq~2 physiq proc~physiq~2->module~pbl_surface_mod proc~change_srf_frac~2 change_srf_frac proc~change_srf_frac~2->module~pbl_surface_mod proc~etat0phys_netcdf etat0phys_netcdf proc~etat0phys_netcdf->module~pbl_surface_mod proc~phys_output_write phys_output_write proc~phys_output_write->module~pbl_surface_mod

Contents

Subroutines


Subroutines

public subroutine call_atke(dtime, ngrid, nlay, nsrf, ni, cdrag_uv, cdrag_t, u_surf, v_surf, temp_surf, wind_u, wind_v, temp, qvap, play, pinterf, tke, eps, Km_out, Kh_out)

In this case, we make an explicit prediction of the wind shear to calculate the tke in a forward backward way pay attention that the treatment of the TKE has to be adapted when solving the TKE with a prognostic equation

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: dtime
integer, intent(in) :: ngrid
integer, intent(in) :: nlay
integer, intent(in) :: nsrf
integer, intent(in), DIMENSION(ngrid) :: ni
real, intent(in), DIMENSION(ngrid) :: cdrag_uv
real, intent(in), DIMENSION(ngrid) :: cdrag_t
real, intent(in), DIMENSION(ngrid) :: u_surf
real, intent(in), DIMENSION(ngrid) :: v_surf
real, intent(in), DIMENSION(ngrid) :: temp_surf
real, intent(in), DIMENSION(ngrid,nlay) :: wind_u
real, intent(in), DIMENSION(ngrid,nlay) :: wind_v
real, intent(in), DIMENSION(ngrid,nlay) :: temp
real, intent(in), DIMENSION(ngrid,nlay) :: qvap
real, intent(in), DIMENSION(ngrid,nlay) :: play
real, intent(in), DIMENSION(ngrid,nlay+1) :: pinterf
real, intent(inout), DIMENSION(ngrid,nlay+1) :: tke
real, intent(out), DIMENSION(ngrid,nlay+1) :: eps
real, intent(out), DIMENSION(ngrid,nlay) :: Km_out
real, intent(out), DIMENSION(ngrid,nlay) :: Kh_out

public subroutine atke_explicit_prediction(ngrid, nlay, rg, rd, dtime, pinterf, play, temp, wind1, x_in, K_in, x_surf, cdrag, x_predict)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ngrid
integer, intent(in) :: nlay
real, intent(in) :: rg
real, intent(in) :: rd
real, intent(in) :: dtime
real, intent(in), DIMENSION(ngrid,nlay+1) :: pinterf
real, intent(in), DIMENSION(ngrid,nlay) :: play
real, intent(in), DIMENSION(ngrid,nlay) :: temp
real, intent(in), DIMENSION(ngrid) :: wind1
real, intent(in), DIMENSION(ngrid,nlay) :: x_in
real, intent(in), DIMENSION(ngrid,nlay+1) :: K_in
real, intent(in), DIMENSION(ngrid) :: x_surf
real, intent(in), DIMENSION(ngrid) :: cdrag
real, intent(out), DIMENSION(ngrid,nlay) :: x_predict