lmdz_wake_ini Module

REAL, SAVE :: stark, wdens_ref, coefgw, alpk


Used by

  • module~~lmdz_wake_ini~~UsedByGraph module~lmdz_wake_ini lmdz_wake_ini proc~wake_pkupper wake_pkupper proc~wake_pkupper->module~lmdz_wake_ini proc~wake_first wake_first proc~wake_first->module~lmdz_wake_ini proc~wake_popdyn_2 wake_popdyn_2 proc~wake_popdyn_2->module~lmdz_wake_ini proc~physiq physiq proc~physiq->module~lmdz_wake_ini proc~wake wake proc~wake->module~lmdz_wake_ini proc~wake_popdyn_1 wake_popdyn_1 proc~wake_popdyn_1->module~lmdz_wake_ini proc~wake_dadv wake_dadv proc~wake_dadv->module~lmdz_wake_ini proc~wake3 wake3 proc~wake3->module~lmdz_wake_ini proc~physiq~2 physiq proc~physiq~2->module~lmdz_wake_ini proc~wake_popdyn_3 wake_popdyn_3 proc~wake_popdyn_3->module~lmdz_wake_ini proc~wake2 wake2 proc~wake2->module~lmdz_wake_ini

Contents

Variables

Subroutines


Variables

Type Visibility Attributes Name Initial
integer, protected, SAVE :: prt_level
logical, public, parameter :: phys_sub = .false.
real, protected, SAVE, DIMENSION(2) :: wdens_ref
real, protected, SAVE :: stark
real, protected, SAVE :: coefgw
real, protected, SAVE :: alpk
real, protected, SAVE :: wk_pupper
real, protected, SAVE :: crep_upper

jyg
real, protected, SAVE :: crep_sol

jyg
real, protected, SAVE :: tau_cv
real, protected, SAVE :: wk_delta_t_min
real, protected, SAVE :: wk_frac_int_delta_t
real, protected, SAVE :: rzero
real, protected, SAVE :: aa0
logical, protected, SAVE :: ok_bug_gfl
logical, protected, SAVE :: flag_wk_check_trgl
integer, protected, SAVE :: iflag_wk_act
integer, protected, SAVE :: iflag_wk_check_trgl
integer, protected, SAVE :: iflag_wk_pop_dyn
integer, protected, SAVE :: iflag_wk_profile
logical, protected, SAVE :: flag_dadv_implicit
integer, protected, SAVE :: wk_nsub
integer, protected, SAVE :: iflag_wk_new_ptop
real, protected, SAVE :: wdensinit
real, protected, SAVE :: wdensthreshold
real, protected, SAVE :: sigmad
real, protected, SAVE :: hwmin
real, protected, SAVE :: wapecut
real, protected, SAVE :: cstart
real, protected, SAVE :: sigmaw_max
real, protected, SAVE :: dens_rate
real, protected, SAVE :: epsilon_loc
real, protected, SAVE :: epsim1
real, protected, SAVE :: RG
real, protected, SAVE :: RD
real, protected, SAVE :: smallestreal
real, protected, SAVE :: wk_int_delta_t_min
logical, protected, SAVE :: CPPKEY_IOPHYS_WK = .FALSE.

Subroutines

public subroutine wake_ini(iflag_wake, rg_in, rd_in, rv_in, prt_lev)

sigmad=0.005 wdensthreshold=1.e-12 wdensmin=sigmad/(3.14rzero2) wdens_ref=8.E-12 CALL getin_p('wdens_ref',wdens_ref) jyg !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!! Population dynamics parameters !!!!!!!!!!!!!!!!!!!!!!!!!!!! WRITE(,*) 'wdens_ref=', wdens_ref jyg

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iflag_wake
real, intent(in) :: rg_in
real, intent(in) :: rd_in
real, intent(in) :: rv_in
integer, intent(in) :: prt_lev