1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
! { dg-do run { target fd_truncate } }
! PR46010 Failure to read these two examples of namelists
type ptracer
character(len = 2) :: sname
logical :: lini
end type ptracer
type(ptracer) , dimension(3) :: tracer
namelist/naml1/ tracer
type qptracer
character(len = 20) :: sname = ""!: short name
character(len = 45 ) :: lname = ""!: long name
character(len = 20 ) :: sunit = "" !: unit
logical :: lini !: read in a file or not
logical :: lsav !: ouput the tracer or not
end type qptracer
type(qptracer) , dimension(3) :: qtracer
namelist/naml2/ qtracer
open (99, file='nml.dat', status="replace")
write(99,*) "&naml1"
write(99,*) " tracer(1) = 'aa', .true."
write(99,*) " tracer(2) = 'bb', .true."
write(99,*) " tracer(3) = 'cc', .true."
write(99,*) "/"
rewind(99)
read (99, nml=naml1)
write (*, nml=naml1)
rewind(99)
write(99,*) "&naml2 ! just some stuff"
write(99,*) " qtracer(1) = 'dic ' , 'dissolved inorganic concentration ', 'mol-c/l' , .true. , .true.,"
write(99,*) " qtracer(2) = 'alkalini' , 'total alkalinity concentration ', 'eq/l ' , .true. , .true.,"
write(99,*) "/"
rewind(99)
read (99, nml=naml2)
write (*, nml=naml2)
rewind(99)
close (99, status="delete")
end
|
