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~~UsesGraph proc~coef_diff_turb coef_diff_turb module~yomcst_mod_h yomcst_mod_h proc~coef_diff_turb->module~yomcst_mod_h module~compbl_mod_h compbl_mod_h proc~coef_diff_turb->module~compbl_mod_h module~yoethf_mod_h yoethf_mod_h proc~coef_diff_turb->module~yoethf_mod_h module~dimphy~3 dimphy proc~coef_diff_turb->module~dimphy~3 module~indice_sol_mod indice_sol_mod proc~coef_diff_turb->module~indice_sol_mod module~print_control_mod print_control_mod proc~coef_diff_turb->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~~CallsGraph proc~coef_diff_turb coef_diff_turb proc~coefkz coefkz proc~coef_diff_turb->proc~coefkz proc~coefkz2 coefkz2 proc~coef_diff_turb->proc~coefkz2 proc~ustarhb ustarhb proc~coef_diff_turb->proc~ustarhb proc~vdif_kcay vdif_kcay proc~coef_diff_turb->proc~vdif_kcay proc~coefkzmin coefkzmin proc~coef_diff_turb->proc~coefkzmin proc~yamada4 yamada4 proc~coef_diff_turb->proc~yamada4 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

Called by

proc~~coef_diff_turb~~CalledByGraph proc~coef_diff_turb coef_diff_turb proc~pbl_surface pbl_surface proc~pbl_surface->proc~coef_diff_turb proc~pbl_surface~2 pbl_surface proc~pbl_surface~2->proc~coef_diff_turb proc~physiq physiq proc~physiq->proc~pbl_surface proc~physiq~2 physiq proc~physiq~2->proc~pbl_surface proc~old_lmdz1d old_lmdz1d proc~old_lmdz1d->proc~physiq proc~call_physiq call_physiq proc~call_physiq->proc~physiq proc~call_physiq~2 call_physiq proc~call_physiq~2->proc~physiq proc~scm scm proc~scm->proc~physiq program~lmdz1d lmdz1d program~lmdz1d->proc~old_lmdz1d program~lmdz1d->proc~scm proc~calfis calfis proc~calfis->proc~call_physiq proc~leapfrog leapfrog proc~leapfrog->proc~calfis program~gcm~2 gcm program~gcm~2->proc~leapfrog

Contents