@@ -41,14 +41,15 @@ module binary_history_specs
41
41
contains
42
42
43
43
recursive subroutine add_binary_history_columns (&
44
- b , level , capacity , spec , history_columns_file , ierr )
44
+ b , level , capacity , spec , history_columns_file , report , ierr )
45
45
use utils_lib
46
46
use utils_def
47
47
use const_def, only : mesa_dir
48
48
type (binary_info), pointer :: b
49
49
integer , intent (in ) :: level
50
50
integer , intent (inout ) :: capacity
51
51
integer , pointer :: spec(:)
52
+ logical , intent (in ) :: report
52
53
character (len = * ), intent (in ) :: history_columns_file
53
54
integer , intent (out ) :: ierr
54
55
@@ -107,7 +108,7 @@ recursive subroutine add_binary_history_columns(&
107
108
if (t /= string_token) then
108
109
call error; return
109
110
end if
110
- call add_binary_history_columns(b, level + 1 , capacity, spec, string, ierr)
111
+ call add_binary_history_columns(b, level + 1 , capacity, spec, string, report, ierr)
111
112
if (ierr /= 0 ) then
112
113
write (* , * ) ' failed for included log columns list ' // trim (string)
113
114
bad_item = .true.
@@ -116,7 +117,7 @@ recursive subroutine add_binary_history_columns(&
116
117
cycle
117
118
end if
118
119
119
- nxt_spec = do1_binary_history_spec(iounit, t, n, i, string, buffer, ierr)
120
+ nxt_spec = do1_binary_history_spec(iounit, t, n, i, string, buffer, report, ierr)
120
121
if (ierr /= 0 ) bad_item = .true.
121
122
if (.not. bad_item) then
122
123
call insert_spec(nxt_spec, string, ierr)
@@ -190,13 +191,14 @@ end subroutine add_binary_history_columns
190
191
191
192
192
193
integer function do1_binary_history_spec (&
193
- iounit , t , n , i , string , buffer , ierr ) result(spec)
194
+ iounit , t , n , i , string , buffer , report , ierr ) result(spec)
194
195
use utils_lib
195
196
use utils_def
196
197
use chem_lib
197
198
198
199
integer :: iounit, t, n, i, j
199
200
character (len = * ) :: string, buffer
201
+ logical , intent (in ) :: report
200
202
integer , intent (out ) :: ierr
201
203
202
204
ierr = 0
@@ -209,15 +211,16 @@ integer function do1_binary_history_spec(&
209
211
end if
210
212
end do
211
213
212
- write (* , * ) ' bad history list name: ' // trim (string)
214
+ if (report) write (* , * ) ' bad history list name: ' // trim (string)
213
215
ierr = - 1
214
216
215
217
end function do1_binary_history_spec
216
218
217
- subroutine set_binary_history_columns (b , binary_history_columns_file , ierr )
219
+ subroutine set_binary_history_columns (b , binary_history_columns_file , report , ierr )
218
220
use utils_lib, only : realloc_integer
219
221
type (binary_info), pointer :: b
220
222
character (len = * ), intent (in ) :: binary_history_columns_file
223
+ logical , intent (in ) :: report
221
224
integer , intent (out ) :: ierr
222
225
integer :: capacity, cnt, i
223
226
logical , parameter :: dbg = .false.
@@ -235,7 +238,7 @@ subroutine set_binary_history_columns(b, binary_history_columns_file, ierr)
235
238
if (ierr /= 0 ) return
236
239
b% binary_history_column_spec(:) = 0
237
240
call add_binary_history_columns(b, 1 , capacity, &
238
- b% binary_history_column_spec, binary_history_columns_file, ierr)
241
+ b% binary_history_column_spec, binary_history_columns_file, report, ierr)
239
242
if (ierr /= 0 ) then
240
243
if (associated (old_binary_history_column_spec)) &
241
244
deallocate (old_binary_history_column_spec)
0 commit comments