UFO
ObsCoolSkin.cc
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 
9 
10 #include <ostream>
11 #include <string>
12 #include <vector>
13 
14 #include "ioda/ObsVector.h"
15 
16 #include "oops/base/Variables.h"
17 
18 #include "ufo/GeoVaLs.h"
19 #include "ufo/ObsDiagnostics.h"
20 
21 namespace ufo {
22 
23 // -----------------------------------------------------------------------------
25 // -----------------------------------------------------------------------------
26 
27 ObsCoolSkin::ObsCoolSkin(const ioda::ObsSpace & odb, const eckit::Configuration & config)
28  : ObsOperatorBase(odb, config), keyOper_(0), odb_(odb), varin_()
29 {
30  const std::vector<std::string> vvin{"sea_surface_temperature",
31  "net_downwelling_shortwave_radiation",
32  "upward_latent_heat_flux_in_air",
33  "upward_sensible_heat_flux_in_air",
34  "net_downwelling_longwave_radiation",
35  "friction_velocity_over_water"};
36  varin_.reset(new oops::Variables(vvin));
37 
39  oops::Log::trace() << "ObsCoolSkin created." << std::endl;
40 }
41 
42 // -----------------------------------------------------------------------------
43 
46  oops::Log::trace() << "ObsCoolSkin destructed" << std::endl;
47 }
48 
49 // -----------------------------------------------------------------------------
50 
51 void ObsCoolSkin::simulateObs(const GeoVaLs & gv, ioda::ObsVector & ovec,
52  ObsDiagnostics &) const {
53  ufo_CoolSkin_simobs_f90(keyOper_, gv.toFortran(), odb_, ovec.size(), ovec.toFortran());
54  oops::Log::trace() << "ObsCoolSkin: observation operator run" << std::endl;
55 }
56 
57 // -----------------------------------------------------------------------------
58 
59 void ObsCoolSkin::print(std::ostream & os) const {
60  os << "ObsCoolSkin::print not implemented";
61 }
62 
63 // -----------------------------------------------------------------------------
64 
65 } // namespace ufo
GeoVaLs: geophysical values at locations.
std::unique_ptr< const oops::Variables > varin_
Definition: ObsCoolSkin.h:58
void simulateObs(const GeoVaLs &, ioda::ObsVector &, ObsDiagnostics &) const override
Obs Operator.
Definition: ObsCoolSkin.cc:51
ObsCoolSkin(const ioda::ObsSpace &, const eckit::Configuration &)
Definition: ObsCoolSkin.cc:27
const ioda::ObsSpace & odb_
Definition: ObsCoolSkin.h:57
void print(std::ostream &) const override
Definition: ObsCoolSkin.cc:59
virtual ~ObsCoolSkin()
Definition: ObsCoolSkin.cc:44
Definition: RunCRTM.h:27
static ObsOperatorMaker< ObsCoolSkin > makerCoolSkin_("CoolSkin")
void ufo_CoolSkin_setup_f90(F90hop &, const eckit::Configuration &)
Interface to Fortran UFO CoolSkin routines.
void ufo_CoolSkin_delete_f90(F90hop &)
void ufo_CoolSkin_simobs_f90(const F90hop &, const F90goms &, const ioda::ObsSpace &, const int &, double &)