6 |
! iq = 2 pour l'eau liquide |
! iq = 2 pour l'eau liquide |
7 |
! et \'eventuellement iq = 3, ..., nqmx pour les autres traceurs |
! et \'eventuellement iq = 3, ..., nqmx pour les autres traceurs |
8 |
|
|
9 |
use dimens_m, only: nqmx |
use dimensions, only: nqmx |
10 |
|
|
11 |
implicit none |
implicit none |
12 |
|
|
38 |
character(len=3) descrq(0:14) |
character(len=3) descrq(0:14) |
39 |
integer iq, iostat, nq_local, unit |
integer iq, iostat, nq_local, unit |
40 |
|
|
41 |
integer, parameter:: allowed_adv(10) = (/0, 10, 12, 13, 14/) |
integer, parameter:: allowed_adv(5) = (/0, 10, 12, 13, 14/) |
42 |
! Allowed values for iadv: |
! Allowed values for iadv: |
43 |
! 10: schema Van-leer (retenu pour l'eau vapeur et liquide) |
! 10: schema Van-leer (retenu pour l'eau vapeur et liquide) |
44 |
! 12: schema Frederic Hourdin I |
! 12: schema Frederic Hourdin I |
75 |
end do |
end do |
76 |
close(unit) |
close(unit) |
77 |
else |
else |
78 |
print *, 'Probl\`eme à l''ouverture de "traceur.def"' |
print *, 'Could not open "traceur.def".' |
79 |
print *, 'Attention : on prend des valeurs par d\'efaut.' |
print *, 'Using default values.' |
80 |
call assert(nqmx == 4, "iniadvtrac nqmx") |
call assert(nqmx == 4, "iniadvtrac nqmx") |
81 |
iadv(:4) = (/14, 10, 10, 10/) |
iadv(:4) = (/14, 10, 10, 10/) |
82 |
tname(1) = 'H2Ov' |
tname(1) = 'H2Ov' |