|
real(kind=kind_phys), parameter | maxdudt = 250.e-5 |
|
real(kind=kind_phys), parameter | maxdtdt =15.e-2 |
|
real(kind=kind_phys), parameter | dked_min =0.01 |
|
real(kind=kind_phys), parameter | dked_max =250.0 |
|
real(kind=kind_phys), parameter | gptwo =2.0 |
|
real(kind=kind_phys), parameter | bnfix = 6.28/300. |
|
real(kind=kind_phys), parameter | bnfix2 = bnfix * bnfix |
|
real(kind=kind_phys), parameter | bnfix4 = bnfix2 * bnfix2 |
|
real(kind=kind_phys), parameter | bnfix3 = bnfix2 * bnfix |
|
integer, parameter | iazidim =4 |
|
integer, parameter | incdim =25 |
|
real(kind=kind_phys), parameter | zcimin = 2.5 |
|
real(kind=kind_phys), parameter | zcimax = 125.0 |
|
real(kind=kind_phys), parameter | zgam = 0.25 |
|
real(kind=kind_phys), parameter | pind_wd = 5./3. |
|
real(kind=kind_phys), parameter | sind_kz = 1. |
|
real(kind=kind_phys), parameter | tind_kz = 3. |
|
real(kind=kind_phys), parameter | stind_kz = sind_kz + tind_kz |
|
real(kind=kind_phys) | nslope |
|
real(kind=kind_phys) | lzstar |
|
real(kind=kind_phys) | lzmin |
|
real(kind=kind_phys) | lzmax |
|
real(kind=kind_phys) | lhmet |
|
real(kind=kind_phys) | tamp_mpa |
|
real(kind=kind_phys) | tau_min |
|
integer | ilaunch |
|
real(kind=kind_phys) | gw_eff |
|
real(kind=kind_phys) | v_kxw |
|
real(kind=kind_phys) | rv_kxw |
|
real(kind=kind_phys) | v_kxw2 |
|
integer | nwav |
|
integer | nazd |
|
integer | nst |
|
real(kind=kind_phys) | eff |
|
real(kind=kind_phys) | zaz_fct |
|
real(kind=kind_phys) | zms |
|
real(kind=kind_phys), dimension(:), allocatable | zci |
|
real(kind=kind_phys), dimension(:), allocatable | zci4 |
|
real(kind=kind_phys), dimension(:), allocatable | zci3 |
|
real(kind=kind_phys), dimension(:), allocatable | zci2 |
|
real(kind=kind_phys), dimension(:), allocatable | zdci |
|
real(kind=kind_phys), dimension(:), allocatable | zcosang |
|
real(kind=kind_phys), dimension(:), allocatable | zsinang |
|
real(kind=kind_phys), dimension(:), allocatable | lzmet |
|
real(kind=kind_phys), dimension(:), allocatable | czmet |
|
real(kind=kind_phys), dimension(:), allocatable | mkzmet |
|
real(kind=kind_phys), dimension(:), allocatable | dczmet |
|
real(kind=kind_phys), dimension(:), allocatable | dmkz |
|
real(kind=kind_phys), parameter | ipr_pt = 0.5 |
|
real(kind=kind_phys), parameter | lturb = 30. |
|
real(kind=kind_phys), parameter | sc2 = lturb*lturb |
|
real(kind=kind_phys), parameter | ulturb =150. |
|
real(kind=kind_phys), parameter | sc2u = ulturb* ulturb |
|
real(kind=kind_phys), parameter | ric =0.25 |
|
real(kind=kind_phys), parameter | rimin = -10. |
|
real(kind=kind_phys), parameter | prmin = 0.25 |
|
real(kind=kind_phys), parameter | prmax = 4.0 |
|