2 |
|
|
3 |
implicit none |
implicit none |
4 |
|
|
|
LOGICAL:: lstardis = .TRUE. ! choix de l'opérateur de dissipation star |
|
|
|
|
5 |
INTEGER:: nitergdiv = 1 |
INTEGER:: nitergdiv = 1 |
6 |
! nombre d'itérations de l'opérateur de dissipation gradiv |
! nombre d'itérations de l'opérateur de dissipation gradiv |
7 |
|
|
27 |
|
|
28 |
subroutine read_comdissnew |
subroutine read_comdissnew |
29 |
|
|
30 |
namelist /comdissnew_nml/lstardis, nitergdiv, nitergrot, niterh, & |
use unit_nml_m, only: unit_nml |
31 |
tetagdiv, tetagrot, tetatemp, coefdis |
|
32 |
|
namelist /comdissnew_nml/nitergdiv, nitergrot, niterh, tetagdiv, & |
33 |
|
tetagrot, tetatemp, coefdis |
34 |
|
|
35 |
!------------------------------------------------- |
!------------------------------------------------- |
36 |
|
|
37 |
print *, "Enter namelist 'comdissnew_nml'." |
print *, "Enter namelist 'comdissnew_nml'." |
38 |
read(unit=*, nml=comdissnew_nml) |
read(unit=*, nml=comdissnew_nml) |
39 |
write(unit=*, nml=comdissnew_nml) |
write(unit_nml, nml=comdissnew_nml) |
40 |
|
|
41 |
end subroutine read_comdissnew |
end subroutine read_comdissnew |
42 |
|
|