UFO
ObsExampleTLAD.interface.h
Go to the documentation of this file.
1 /*
2  * (C) Copyright 2017-2018 UCAR
3  *
4  * This software is licensed under the terms of the Apache Licence Version 2.0
5  * which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
6  */
7 
8 #ifndef TOOLS_NEW_OBSOP_EXAMPLE_OBSEXAMPLETLAD_INTERFACE_H_
9 #define TOOLS_NEW_OBSOP_EXAMPLE_OBSEXAMPLETLAD_INTERFACE_H_
10 
11 #include "ioda/ObsSpace.h"
12 #include "oops/base/Variables.h"
13 #include "ufo/Fortran.h"
14 
15 namespace ufo {
16 
17 /// Interface to Fortran UFO example routines
18 
19 extern "C" {
20 
21 // -----------------------------------------------------------------------------
22 
23  void ufo_example_tlad_setup_f90(F90hop &, const eckit::Configuration &,
24  const oops::Variables &, oops::Variables &);
25  void ufo_example_tlad_delete_f90(F90hop &);
26  void ufo_example_tlad_settraj_f90(const F90hop &, const F90goms &, const ioda::ObsSpace &,
27  const F90goms &);
28  void ufo_example_simobs_tl_f90(const F90hop &, const F90goms &, const ioda::ObsSpace &,
29  const int &, double &);
30  void ufo_example_simobs_ad_f90(const F90hop &, const F90goms &, const ioda::ObsSpace &,
31  const int &, const double &);
32 // -----------------------------------------------------------------------------
33 
34 } // extern C
35 
36 } // namespace ufo
37 #endif // TOOLS_NEW_OBSOP_EXAMPLE_OBSEXAMPLETLAD_INTERFACE_H_
ufo::F90goms
int F90goms
Definition: Fortran.h:16
ufo::ufo_example_tlad_delete_f90
void ufo_example_tlad_delete_f90(F90hop &)
ufo::ufo_example_tlad_settraj_f90
void ufo_example_tlad_settraj_f90(const F90hop &, const F90goms &, const ioda::ObsSpace &, const F90goms &)
Fortran.h
ufo
Definition: RunCRTM.h:27
ufo::F90hop
int F90hop
Definition: Fortran.h:18
ufo::ufo_example_simobs_tl_f90
void ufo_example_simobs_tl_f90(const F90hop &, const F90goms &, const ioda::ObsSpace &, const int &, double &)
ufo::ufo_example_simobs_ad_f90
void ufo_example_simobs_ad_f90(const F90hop &, const F90goms &, const ioda::ObsSpace &, const int &, const double &)
ufo::ufo_example_tlad_setup_f90
void ufo_example_tlad_setup_f90(F90hop &, const eckit::Configuration &, const oops::Variables &, oops::Variables &)
Interface to Fortran UFO example routines.