observations.h

Go to the documentation of this file.

/** @file observations.h
 */
// Generated automatically by gotm.awk from
// /home/popinet/local/src/code-5.2.1//src/observations/observations.F90
extern realtype_1d __observations_MOD_sprof;
#define observations_sprof __observations_MOD_sprof
extern realtype_1d __observations_MOD_tprof;
#define observations_tprof __observations_MOD_tprof
extern realtype_1d __observations_MOD_o2_prof;
#define observations_o2_prof __observations_MOD_o2_prof
extern realtype_1d __observations_MOD_dsdx;
#define observations_dsdx __observations_MOD_dsdx
extern realtype_1d __observations_MOD_dsdy;
#define observations_dsdy __observations_MOD_dsdy
extern realtype_1d __observations_MOD_dtdx;
#define observations_dtdx __observations_MOD_dtdx
extern realtype_1d __observations_MOD_dtdy;
#define observations_dtdy __observations_MOD_dtdy
extern realtype_1d __observations_MOD_idpdx;
#define observations_idpdx __observations_MOD_idpdx
extern realtype_1d __observations_MOD_idpdy;
#define observations_idpdy __observations_MOD_idpdy
extern realtype_1d __observations_MOD_uprof;
#define observations_uprof __observations_MOD_uprof
extern realtype_1d __observations_MOD_vprof;
#define observations_vprof __observations_MOD_vprof
extern realtype_1d __observations_MOD_epsprof;
#define observations_epsprof __observations_MOD_epsprof
extern realtype_1d __observations_MOD_srelaxtau;
#define observations_srelaxtau __observations_MOD_srelaxtau
extern realtype_1d __observations_MOD_trelaxtau;
#define observations_trelaxtau __observations_MOD_trelaxtau
extern realtype __observations_MOD_zeta;
#define observations_zeta __observations_MOD_zeta
extern realtype __observations_MOD_dpdx;
#define observations_dpdx __observations_MOD_dpdx
extern realtype __observations_MOD_dpdy;
#define observations_dpdy __observations_MOD_dpdy
extern realtype __observations_MOD_h_press;
#define observations_h_press __observations_MOD_h_press
extern realtype __observations_MOD_w_adv;
#define observations_w_adv __observations_MOD_w_adv
extern realtype __observations_MOD_w_height;
#define observations_w_height __observations_MOD_w_height
extern realtype __observations_MOD_a;
#define observations_a __observations_MOD_a
extern realtype __observations_MOD_g1;
#define observations_g1 __observations_MOD_g1
extern realtype __observations_MOD_g2;
#define observations_g2 __observations_MOD_g2
extern integer __observations_MOD_s_prof_method;
#define observations_s_prof_method __observations_MOD_s_prof_method
extern integer __observations_MOD_s_analyt_method;
#define observations_s_analyt_method __observations_MOD_s_analyt_method
extern integer __observations_MOD_t_prof_method;
#define observations_t_prof_method __observations_MOD_t_prof_method
extern integer __observations_MOD_t_analyt_method;
#define observations_t_analyt_method __observations_MOD_t_analyt_method
extern integer __observations_MOD_o2_prof_method;
#define observations_o2_prof_method __observations_MOD_o2_prof_method
extern integer __observations_MOD_o2_units;
#define observations_o2_units __observations_MOD_o2_units
extern integer __observations_MOD_ext_press_method;
#define observations_ext_press_method __observations_MOD_ext_press_method
extern integer __observations_MOD_ext_press_mode;
#define observations_ext_press_mode __observations_MOD_ext_press_mode
extern realtype __observations_MOD_pressconstu;
#define observations_pressconstu __observations_MOD_pressconstu
extern realtype __observations_MOD_pressconstv;
#define observations_pressconstv __observations_MOD_pressconstv
extern realtype __observations_MOD_pressheight;
#define observations_pressheight __observations_MOD_pressheight
extern realtype __observations_MOD_periodm;
#define observations_periodm __observations_MOD_periodm
extern realtype __observations_MOD_ampmu;
#define observations_ampmu __observations_MOD_ampmu
extern realtype __observations_MOD_ampmv;
#define observations_ampmv __observations_MOD_ampmv
extern realtype __observations_MOD_phasemu;
#define observations_phasemu __observations_MOD_phasemu
extern realtype __observations_MOD_phasemv;
#define observations_phasemv __observations_MOD_phasemv
extern realtype __observations_MOD_periods;
#define observations_periods __observations_MOD_periods
extern realtype __observations_MOD_ampsu;
#define observations_ampsu __observations_MOD_ampsu
extern realtype __observations_MOD_ampsv;
#define observations_ampsv __observations_MOD_ampsv
extern realtype __observations_MOD_phasesu;
#define observations_phasesu __observations_MOD_phasesu
extern realtype __observations_MOD_phasesv;
#define observations_phasesv __observations_MOD_phasesv
extern integer __observations_MOD_int_press_method;
#define observations_int_press_method __observations_MOD_int_press_method
extern realtype __observations_MOD_const_dsdx;
#define observations_const_dsdx __observations_MOD_const_dsdx
extern realtype __observations_MOD_const_dsdy;
#define observations_const_dsdy __observations_MOD_const_dsdy
extern realtype __observations_MOD_const_dtdx;
#define observations_const_dtdx __observations_MOD_const_dtdx
extern realtype __observations_MOD_const_dtdy;
#define observations_const_dtdy __observations_MOD_const_dtdy
extern logical __observations_MOD_s_adv;
#define observations_s_adv __observations_MOD_s_adv
extern logical __observations_MOD_t_adv;
#define observations_t_adv __observations_MOD_t_adv
extern integer __observations_MOD_w_adv_method;
#define observations_w_adv_method __observations_MOD_w_adv_method
extern realtype __observations_MOD_w_adv0;
#define observations_w_adv0 __observations_MOD_w_adv0
extern realtype __observations_MOD_w_adv_height0;
#define observations_w_adv_height0 __observations_MOD_w_adv_height0
extern integer __observations_MOD_w_adv_discr;
#define observations_w_adv_discr __observations_MOD_w_adv_discr
extern integer __observations_MOD_zeta_method;
#define observations_zeta_method __observations_MOD_zeta_method
extern realtype __observations_MOD_zeta_scale;
#define observations_zeta_scale __observations_MOD_zeta_scale
extern realtype __observations_MOD_zeta_offset;
#define observations_zeta_offset __observations_MOD_zeta_offset
extern realtype __observations_MOD_zeta_0;
#define observations_zeta_0 __observations_MOD_zeta_0
extern realtype __observations_MOD_period_1;
#define observations_period_1 __observations_MOD_period_1
extern realtype __observations_MOD_amp_1;
#define observations_amp_1 __observations_MOD_amp_1
extern realtype __observations_MOD_phase_1;
#define observations_phase_1 __observations_MOD_phase_1
extern realtype __observations_MOD_period_2;
#define observations_period_2 __observations_MOD_period_2
extern realtype __observations_MOD_amp_2;
#define observations_amp_2 __observations_MOD_amp_2
extern realtype __observations_MOD_phase_2;
#define observations_phase_2 __observations_MOD_phase_2
extern integer __observations_MOD_wave_method;
#define observations_wave_method __observations_MOD_wave_method
extern realtype __observations_MOD_hs;
#define observations_hs __observations_MOD_hs
extern realtype __observations_MOD_tz;
#define observations_tz __observations_MOD_tz
extern realtype __observations_MOD_phiw;
#define observations_phiw __observations_MOD_phiw
extern realtype __observations_MOD_vel_relax_tau;
#define observations_vel_relax_tau __observations_MOD_vel_relax_tau
extern realtype __observations_MOD_vel_relax_ramp;
#define observations_vel_relax_ramp __observations_MOD_vel_relax_ramp
extern realtype __observations_MOD_b_obs_surf;
#define observations_b_obs_surf __observations_MOD_b_obs_surf
extern realtype __observations_MOD_b_obs_nn;
#define observations_b_obs_nn __observations_MOD_b_obs_nn
extern realtype __observations_MOD_b_obs_sbf;
#define observations_b_obs_sbf __observations_MOD_b_obs_sbf
 
extern void __observations_MOD_init_observations (
  integer * namlst,
  char * fn,
  integer * julday,
  integer * secs,
  realtype * depth,
  integer * nlev,
  realtype * z,
  realtype * h,
  realtype * gravity,
  realtype * rho_0,
  long int _slfn
);
static inline void observations_init_observations (
  integer * namlst,
  char * fn,
  integer * julday,
  integer * secs,
  realtype * depth,
  integer * nlev,
  realtype * z,
  realtype * h,
  realtype * gravity,
  realtype * rho_0) {
  __observations_MOD_init_observations (namlst, fn, julday, secs, depth, nlev, z, h, gravity, rho_0, strlencheck(fn));
}
 
extern void __observations_MOD_get_all_obs (
  integer * julday,
  integer * secs,
  integer * nlev,
  realtype_1d * z
);
static inline void observations_get_all_obs (
  integer * julday,
  integer * secs,
  integer * nlev,
  realtype_1d * z) {
  __observations_MOD_get_all_obs (julday, secs, nlev, z);
}
 
extern void __observations_MOD_clean_observations (
 
);
static inline void observations_clean_observations (void) {
  __observations_MOD_clean_observations();
}
 
extern void __observations_MOD_print_state_observations (
 
);
static inline void observations_print_state_observations (void) {
  __observations_MOD_print_state_observations();
}
realtype observations_get_global (const char * name) {
  if (!strcmp (name, "zeta"))
    return observations_zeta;
  if (!strcmp (name, "dpdx"))
    return observations_dpdx;
  if (!strcmp (name, "dpdy"))
    return observations_dpdy;
  if (!strcmp (name, "h_press"))
    return observations_h_press;
  if (!strcmp (name, "w_adv"))
    return observations_w_adv;
  if (!strcmp (name, "w_height"))
    return observations_w_height;
  if (!strcmp (name, "a"))
    return observations_a;
  if (!strcmp (name, "g1"))
    return observations_g1;
  if (!strcmp (name, "g2"))
    return observations_g2;
  if (!strcmp (name, "s_prof_method"))
    return observations_s_prof_method;
  if (!strcmp (name, "s_analyt_method"))
    return observations_s_analyt_method;
  if (!strcmp (name, "t_prof_method"))
    return observations_t_prof_method;
  if (!strcmp (name, "t_analyt_method"))
    return observations_t_analyt_method;
  if (!strcmp (name, "o2_prof_method"))
    return observations_o2_prof_method;
  if (!strcmp (name, "o2_units"))
    return observations_o2_units;
  if (!strcmp (name, "ext_press_method"))
    return observations_ext_press_method;
  if (!strcmp (name, "ext_press_mode"))
    return observations_ext_press_mode;
  if (!strcmp (name, "pressconstu"))
    return observations_pressconstu;
  if (!strcmp (name, "pressconstv"))
    return observations_pressconstv;
  if (!strcmp (name, "pressheight"))
    return observations_pressheight;
  if (!strcmp (name, "periodm"))
    return observations_periodm;
  if (!strcmp (name, "ampmu"))
    return observations_ampmu;
  if (!strcmp (name, "ampmv"))
    return observations_ampmv;
  if (!strcmp (name, "phasemu"))
    return observations_phasemu;
  if (!strcmp (name, "phasemv"))
    return observations_phasemv;
  if (!strcmp (name, "periods"))
    return observations_periods;
  if (!strcmp (name, "ampsu"))
    return observations_ampsu;
  if (!strcmp (name, "ampsv"))
    return observations_ampsv;
  if (!strcmp (name, "phasesu"))
    return observations_phasesu;
  if (!strcmp (name, "phasesv"))
    return observations_phasesv;
  if (!strcmp (name, "int_press_method"))
    return observations_int_press_method;
  if (!strcmp (name, "const_dsdx"))
    return observations_const_dsdx;
  if (!strcmp (name, "const_dsdy"))
    return observations_const_dsdy;
  if (!strcmp (name, "const_dtdx"))
    return observations_const_dtdx;
  if (!strcmp (name, "const_dtdy"))
    return observations_const_dtdy;
  if (!strcmp (name, "s_adv"))
    return observations_s_adv;
  if (!strcmp (name, "t_adv"))
    return observations_t_adv;
  if (!strcmp (name, "w_adv_method"))
    return observations_w_adv_method;
  if (!strcmp (name, "w_adv0"))
    return observations_w_adv0;
  if (!strcmp (name, "w_adv_height0"))
    return observations_w_adv_height0;
  if (!strcmp (name, "w_adv_discr"))
    return observations_w_adv_discr;
  if (!strcmp (name, "zeta_method"))
    return observations_zeta_method;
  if (!strcmp (name, "zeta_scale"))
    return observations_zeta_scale;
  if (!strcmp (name, "zeta_offset"))
    return observations_zeta_offset;
  if (!strcmp (name, "zeta_0"))
    return observations_zeta_0;
  if (!strcmp (name, "period_1"))
    return observations_period_1;
  if (!strcmp (name, "amp_1"))
    return observations_amp_1;
  if (!strcmp (name, "phase_1"))
    return observations_phase_1;
  if (!strcmp (name, "period_2"))
    return observations_period_2;
  if (!strcmp (name, "amp_2"))
    return observations_amp_2;
  if (!strcmp (name, "phase_2"))
    return observations_phase_2;
  if (!strcmp (name, "wave_method"))
    return observations_wave_method;
  if (!strcmp (name, "hs"))
    return observations_hs;
  if (!strcmp (name, "tz"))
    return observations_tz;
  if (!strcmp (name, "phiw"))
    return observations_phiw;
  if (!strcmp (name, "vel_relax_tau"))
    return observations_vel_relax_tau;
  if (!strcmp (name, "vel_relax_ramp"))
    return observations_vel_relax_ramp;
  if (!strcmp (name, "b_obs_surf"))
    return observations_b_obs_surf;
  if (!strcmp (name, "b_obs_nn"))
    return observations_b_obs_nn;
  if (!strcmp (name, "b_obs_sbf"))
    return observations_b_obs_sbf;
  return HUGE;
}