|
real(kind=kind_phys), parameter | hncrit =9000. |
|
real(kind=kind_phys), parameter | hminmt =50. |
|
real(kind=kind_phys), parameter | sigfac =4.0 |
|
real(kind=kind_phys), parameter | hpmax =2500.0 |
|
real(kind=kind_phys), parameter | hpmin =25.0 |
|
real(kind=kind_phys), parameter | minwnd =1.0 |
|
real(kind=kind_phys), parameter | dpmin =5000.0 |
|
character(len=8) | strver = 'gfs_2018' |
|
character(len=8) | strbase = 'gfs_2018' |
|
real(kind=kind_phys), parameter | rimin =-10. |
|
real(kind=kind_phys), parameter | ric =0.25 |
|
real(kind=kind_phys), parameter | frmax =10. |
|
real(kind=kind_phys), parameter | frc =1.0 |
|
real(kind=kind_phys), parameter | frmin =0.01 |
|
real(kind=kind_phys), parameter | ce =0.8 |
|
real(kind=kind_phys), parameter | ceofrc =ce/frc |
|
real(kind=kind_phys), parameter | cg =0.5 |
|
real(kind=kind_phys), parameter | gmax =1.0 |
|
real(kind=kind_phys), parameter | veleps =1.0 |
|
real(kind=kind_phys), parameter | factop =0.5 |
|
real(kind=kind_phys), parameter | efmin =0.5 |
|
real(kind=kind_phys), parameter | efmax =10.0 |
|
real(kind=kind_phys), parameter | rlolev =50000.0 |
|
integer, parameter | mdir = 8 |
|
real(kind=kind_phys), parameter | fdir =mdir/(8.*atan(1.0)) |
|
real(kind=kind_phys), parameter | zpgeo =2.*atan(1.0) |
|
integer, dimension(mdir), save | nwdir |
|
real(kind=kind_phys), parameter | odmin = 0.1 |
|
real(kind=kind_phys), parameter | odmax = 10.0 |
|
real(kind=kind_phys), parameter | fcrit_sm = 0.7 |
|
real(kind=kind_phys), parameter | fcrit_sm2 = fcrit_sm * fcrit_sm |
|
real(kind=kind_phys), parameter | fcrit_gfs = 0.7 |
|
real(kind=kind_phys), parameter | fcrit_v1 = 0.7 |
|
real(kind=kind_phys), parameter | fcrit_mtb = 0.7 |
|
real(kind=kind_phys), parameter | zbr_pi = zpgeo |
|
real(kind=kind_phys), parameter | zbr_ifs = zpgeo |
|
real(kind=kind_phys), parameter | kxoro =6.28e-3/200. |
|
real(kind=kind_phys), parameter | coro = 0.0 |
|
integer, parameter | nridge =2 |
|
real(kind=kind_phys), parameter | sigma_std =1./100. |
|
real(kind=kind_phys), parameter | gamm_std =1.0 |
|
real(kind=kind_phys) | cdmb |
|
real(kind=kind_phys) | cleff |
|
integer | nworo |
|
integer | nazoro |
|
integer | nstoro |
|
real(kind=kind_phys), parameter | kmax = 6.28/(10.*25.) |
|
real(kind=kind_phys), parameter | k1tr = 6.28/(2100) |
|
real(kind=kind_phys), parameter | kflt = 6.28/(18.e3) |
|
real(kind=kind_phys), parameter | k0tr = 6.28/(10.e3) |
|
real(kind=kind_phys), parameter | nk1tr = 2.8 |
|
real(kind=kind_phys), parameter | nk0tr = 1.9 |
|
real(kind=kind_phys), parameter | a1_tofd = kflt ** nk1tr *1.e3 |
|
real(kind=kind_phys), parameter | a2_tofd = k1tr ** (nk0tr-nk1tr) |
|
real(kind=kind_phys), parameter | fix_tofd = 2.* 0.005 * 12 *0.6 |
|
integer, parameter | n_tofd = 2 |
|
real(kind=kind_phys), parameter | const_tofd = 0.0759 |
|
real(kind=kind_phys), parameter | ze_tofd = 1500.0 |
|
real(kind=kind_phys), parameter | a12_tofd = 0.0002662*0.005363 |
|
real(kind=kind_phys), parameter | ztop_tofd = 3.*ze_tofd |
|