wake_popdyn_2 Subroutine

public subroutine wake_popdyn_2(klon, klev, wk_adv, dtimesub, wgen, wdensmin, sigmaw, wdens, awdens, gfl, cstar, cin, wape, rad_wk, d_sigmaw, d_wdens, d_awdens, cont_fact, d_sig_gen, d_sig_death, d_sig_col, d_sig_spread, d_sig_bnd, d_dens_gen, d_dens_death, d_dens_col, d_dens_bnd, d_adens_death, d_adens_icol, d_adens_acol, d_adens_bnd)

Uses

  • proc~~wake_popdyn_2~~UsesGraph proc~wake_popdyn_2 wake_popdyn_2 module~lmdz_wake_ini lmdz_wake_ini proc~wake_popdyn_2->module~lmdz_wake_ini

states variables tendences

USE lmdz_wake_ini , ONLY : iflag_wk_pop_dyn, wdensmin tau_wk(i) = max(rad_wk(i)/(3.cstar(i))((cstar(i)/cstart)1.5 - 1), 100.) cont_fact(i) = 2.(wgen(i)(aa0-sigmaw(i)/wdens(i)) + gfl(i)cstar(i)) / & (2.(wdens(i)-awdens(i))2(2.sigmaw(i)/wdens(i) - aa0) + wdens(i)(1.-2.sigmaw(i))) cont_fact(i) = 2.3.14rad_wk(i)cstar(i) ! bug cont_fact(i) = 4.3.14rad_wk(i)cstar(i) d_sig_bnd(i) = d_sig_bnd(i) + d_sigmaw_targ - d_sigmaw(i) d_sig_bnd_provis(i) = d_sigmaw_targ - d_sigmaw(i) d_sigmaw(i) = max(d_sigmaw(i), sigmad-sigmaw(i))

     d_dens_bnd(i) = d_dens_bnd(i) + d_wdens_targ - d_wdens(i)
     d_dens_bnd(i) = d_dens_bnd(i) + d_wdens_targ - d_wdens(i)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: klon
integer, intent(in) :: klev
logical, intent(in), DIMENSION (klon) :: wk_adv
real, intent(in) :: dtimesub
real, intent(in), DIMENSION (klon) :: wgen

B = birth rate of wakes
real, intent(in) :: wdensmin
real, intent(inout), DIMENSION (klon) :: sigmaw

sigma = fractional area of wakes

real, intent(inout), DIMENSION (klon) :: wdens

D = number of wakes per unit area

real, intent(inout), DIMENSION (klon) :: awdens

A = number of active wakes per unit area
real, intent(out), DIMENSION (klon) :: gfl

Lg = gust front lenght per unit area
real, intent(in), DIMENSION (klon) :: cstar

C* = spreading velocity of wakes
real, intent(in), DIMENSION (klon) :: cin
real, intent(in), DIMENSION (klon) :: wape
real, intent(out), DIMENSION (klon) :: rad_wk

r = wake radius
real, intent(out), DIMENSION (klon) :: d_sigmaw
real, intent(out), DIMENSION (klon) :: d_wdens
real, intent(out), DIMENSION (klon) :: d_awdens
real, intent(out), DIMENSION (klon) :: cont_fact

RM facteur de contact = 2 pi * rad * C*
real, intent(out), DIMENSION (klon) :: d_sig_gen
real, intent(out), DIMENSION (klon) :: d_sig_death
real, intent(out), DIMENSION (klon) :: d_sig_col
real, intent(out), DIMENSION (klon) :: d_sig_spread
real, intent(out), DIMENSION (klon) :: d_sig_bnd
real, intent(out), DIMENSION (klon) :: d_dens_gen
real, intent(out), DIMENSION (klon) :: d_dens_death
real, intent(out), DIMENSION (klon) :: d_dens_col
real, intent(out), DIMENSION (klon) :: d_dens_bnd
real, intent(out), DIMENSION (klon) :: d_adens_death

internal variables
real, intent(out), DIMENSION (klon) :: d_adens_icol

internal variables
real, intent(out), DIMENSION (klon) :: d_adens_acol

internal variables
real, intent(out), DIMENSION (klon) :: d_adens_bnd

internal variables

Called by

proc~~wake_popdyn_2~~CalledByGraph proc~wake_popdyn_2 wake_popdyn_2 proc~wake wake proc~wake->proc~wake_popdyn_2 proc~wake2 wake2 proc~wake2->proc~wake_popdyn_2 proc~wake3 wake3 proc~wake3->proc~wake_popdyn_2 proc~calwake calwake proc~calwake->proc~wake proc~calwake->proc~wake2 proc~calwake->proc~wake3 proc~calwake~2 calwake proc~calwake~2->proc~wake proc~physiq physiq proc~physiq->proc~calwake proc~physiq~2 physiq proc~physiq~2->proc~calwake~2 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