UFO
VertInterp.interface.h
Go to the documentation of this file.
1 /*
2  * (C) Copyright 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 UFO_UTILS_VERTINTERP_INTERFACE_H_
9 #define UFO_UTILS_VERTINTERP_INTERFACE_H_
10 
11 namespace ufo {
12 
13 /// Interface to Fortran vertical interpolation routines
14 
15 extern "C" {
16 void vert_interp_weights_f90(const int &nlev, const double &obl, const double *vec,
17  int &wi, double &wf);
18 
19 void vert_interp_apply_f90(const int &nlev, const double *fvec,
20  double &f,
21  const int &wi, const double &wf);
22 } // extern C
23 
24 } // namespace ufo
25 #endif // UFO_UTILS_VERTINTERP_INTERFACE_H_
esg_grid_mod::f
logical, parameter f
Definition: esg_grid_mod.F90:27
ufo
Definition: RunCRTM.h:27
ufo::vert_interp_apply_f90
void vert_interp_apply_f90(const int &nlev, const double *fvec, double &f, const int &wi, const double &wf)
ufo::vert_interp_weights_f90
void vert_interp_weights_f90(const int &nlev, const double &obl, const double *vec, int &wi, double &wf)
Interface to Fortran vertical interpolation routines.