| 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' |
Parent Directory
| 
Revision Log
| 
Patch