coef_diff_turb Subroutine

public subroutine coef_diff_turb(dtime, nsrf, knon, ni, ypaprs, ypplay, yu, yv, yq, yt, yts, yqsurf, ycdragm, ycoefm, ycoefh, yq2, yeps, ydrgpro)

Uses

  • proc~~coef_diff_turb~2~~UsesGraph proc~coef_diff_turb~2 coef_diff_turb module~yomcst_mod_h yomcst_mod_h proc~coef_diff_turb~2->module~yomcst_mod_h module~compbl_mod_h compbl_mod_h proc~coef_diff_turb~2->module~compbl_mod_h module~yoethf_mod_h yoethf_mod_h proc~coef_diff_turb~2->module~yoethf_mod_h module~dimphy~3 dimphy proc~coef_diff_turb~2->module~dimphy~3 module~indice_sol_mod indice_sol_mod proc~coef_diff_turb~2->module~indice_sol_mod module~print_control_mod print_control_mod proc~coef_diff_turb~2->module~print_control_mod


Calcul de coefficients de diffusion turbulent de l'atmosphere : ycoefm(:,2:klev), ycoefh(:,2:klev)



Eventuelle recalcule des coeffeicients de diffusion turbulent de l'atmosphere : ycoefm(:,2:klev), ycoefh(:,2:klev)



Calcul d'une diffusion minimale pour les conditions tres stables



MELLOR ET YAMADA adapte a Mars Richard Fournier et Frederic Hourdin


$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! $! Pour memoire, le papier Hourdin et al. 2002 a ete obtenur avec un $! bug sur les coefficients de surface : $! ycdragh(1:knon) = ycoefm(1:knon,1) $! ycdragm(1:knon) = ycoefh(1:knon,1) $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: dtime
integer, intent(in) :: nsrf
integer, intent(in) :: knon
integer, intent(in), DIMENSION(klon) :: ni
real, intent(in), DIMENSION(klon,klev+1) :: ypaprs
real, intent(in), DIMENSION(klon,klev) :: ypplay
real, intent(in), DIMENSION(klon,klev) :: yu
real, intent(in), DIMENSION(klon,klev) :: yv
real, intent(in), DIMENSION(klon,klev) :: yq
real, intent(in), DIMENSION(klon,klev) :: yt
real, intent(in), DIMENSION(klon) :: yts
real, intent(in), DIMENSION(klon) :: yqsurf
real, intent(in), DIMENSION(klon) :: ycdragm
real, intent(out), DIMENSION(klon,klev) :: ycoefm
real, intent(out), DIMENSION(klon,klev) :: ycoefh
real, intent(inout), DIMENSION(klon,klev+1) :: yq2
real, intent(out), DIMENSION(klon,klev+1) :: yeps
real, intent(in), DIMENSION(klon,klev) :: ydrgpro

Calls

proc~~coef_diff_turb~2~~CallsGraph proc~coef_diff_turb~2 coef_diff_turb proc~vdif_kcay vdif_kcay proc~coef_diff_turb~2->proc~vdif_kcay proc~yamada4 yamada4 proc~coef_diff_turb~2->proc~yamada4 proc~ustarhb ustarhb proc~coef_diff_turb~2->proc~ustarhb proc~coefkzmin coefkzmin proc~coef_diff_turb~2->proc~coefkzmin proc~coefkz2~2 coefkz2 proc~coef_diff_turb~2->proc~coefkz2~2 proc~coefkz~2 coefkz proc~coef_diff_turb~2->proc~coefkz~2 amax1 amax1 proc~vdif_kcay->amax1 proc~abort_physic abort_physic proc~yamada4->proc~abort_physic proc~mixinglength mixinglength proc~yamada4->proc~mixinglength proc~vdif_q2 vdif_q2 proc~yamada4->proc~vdif_q2 histclo histclo proc~abort_physic->histclo proc~mpi_abort MPI_ABORT proc~abort_physic->proc~mpi_abort restclo restclo proc~abort_physic->restclo getin_dump getin_dump proc~abort_physic->getin_dump proc~lmdz_mpi_wrapper_abort lmdz_mpi_wrapper_abort proc~mpi_abort->proc~lmdz_mpi_wrapper_abort

Contents