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
| Type | Intent | Optional | 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 |