28 |
|
|
29 |
use nr_util, only: pi |
use nr_util, only: pi |
30 |
use jumble, only: new_unit |
use jumble, only: new_unit |
31 |
|
use unit_nml_m, only: unit_nml |
32 |
|
|
33 |
REAL s(llm+1) |
REAL s(llm+1) |
34 |
! "s(l)" is the atmospheric hybrid sigma-pressure coordinate at |
! "s(l)" is the atmospheric hybrid sigma-pressure coordinate at |
67 |
|
|
68 |
print *, "Enter namelist 'disvert_nml'." |
print *, "Enter namelist 'disvert_nml'." |
69 |
read(unit=*, nml=disvert_nml) |
read(unit=*, nml=disvert_nml) |
70 |
write(unit=*, nml=disvert_nml) |
write(unit_nml, nml=disvert_nml) |
71 |
|
|
72 |
select case (s_sampling) |
select case (s_sampling) |
73 |
case ("param") |
case ("param") |