← Back to branch summary

~fluidity-core/fluidity/adjoint

« back to all changes in this revision

Viewing changes to adjoint/Adjoint_Global_Variables.F90

Merge the fluidity_revolve branch.

Show diffs side-by-side

added added

removed removed

Lines of Context:
adjoint/Adjoint_Global_Variables.F90
31
31
#ifdef HAVE_ADJOINT
32
32
#include "libadjoint/adj_fortran.h"
33
33
  use libadjoint
 
34
  use global_parameters, only: option_path_len
34
35
  implicit none
35
36
 
36
37
  type(adj_dictionary) :: adj_path_lookup, adj_solver_path_lookup
37
38
  type(adj_adjointer)  :: adjointer
 
39
  character(len=option_path_len) :: option_file 
38
40
#endif
39
41
end module adjoint_global_variables