20 character(len=*),
intent(in):: aux_variable_names
21 integer,
intent(in) :: nwc
22 character(len=name_len) :: names(1:nwc)
24 integer:: space_position,iw
25 character(len=name_len):: wname
26 character(len=std_len):: scanstring
30 scanstring=trim(adjustl(aux_variable_names))
31 space_position=index(scanstring,
' ')
33 do while (space_position==1)
34 scanstring=scanstring(2:)
35 space_position=index(scanstring,
' ')
37 wname=scanstring(:space_position-1)
38 scanstring=scanstring(space_position+1:)
39 space_position=index(scanstring,
' ')
41 names(iw)=trim(adjustl(wname))
132 integer,
intent(in) :: fh
133 integer(kind=MPI_OFFSET_KIND),
intent(in) :: offset_tree
134 integer(kind=MPI_OFFSET_KIND),
intent(in) :: offset_block
135 character(len=*),
intent(in) :: dataset_names(:)
136 integer,
intent(in) :: nw_vars
137 integer,
dimension(MPI_STATUS_SIZE) :: st
140 character(len=name_len) :: dname
143 call mpi_file_write(fh, int(offset_tree), 1, mpi_integer, st, er)
144 call mpi_file_write(fh, int(offset_block), 1, mpi_integer, st, er)
145 call mpi_file_write(fh, nw_vars, 1, mpi_integer, st, er)
146 call mpi_file_write(fh,
ndir, 1, mpi_integer, st, er)
147 call mpi_file_write(fh,
ndim, 1, mpi_integer, st, er)
148 call mpi_file_write(fh,
levmax, 1, mpi_integer, st, er)
149 call mpi_file_write(fh,
nleafs, 1, mpi_integer, st, er)
150 call mpi_file_write(fh,
nparents, 1, mpi_integer, st, er)
151 call mpi_file_write(fh,
it, 1, mpi_integer, st, er)
154 call mpi_file_write(fh,
global_time, 1, mpi_double_precision, st, er)
156 call mpi_file_write(fh, [ xprobmin^
d ],
ndim, &
157 mpi_double_precision, st, er)
158 call mpi_file_write(fh, [ xprobmax^
d ],
ndim, &
159 mpi_double_precision, st, er)
166 call mpi_file_write(fh,
periodb,
ndim, mpi_logical, st, er)
170 name_len, mpi_character, st, er)
173 call mpi_file_write(fh,
stagger_grid, 1, mpi_logical, st, er)
178 dname = trim(adjustl((dataset_names(iw))))
179 call mpi_file_write(fh, dname, name_len, mpi_character, st, er)
183 call mpi_file_write(fh,
physics_type, name_len, mpi_character, st, er)
194 call mpi_file_write(fh,
snapshotnext, 1, mpi_integer, st, er)
196 call mpi_file_write(fh,
snapshotnext+1, 1, mpi_integer, st, er)
198 call mpi_file_write(fh,
slicenext, 1, mpi_integer, st, er)
199 call mpi_file_write(fh,
collapsenext, 1, mpi_integer, st, er)