MODULE obs_averg_h2d !!====================================================================== !! *** MODULE obs_averg_h2d *** !! Observation diagnostics: Perform the horizontal averaging !! from model grid to observation footprint !!===================================================================== !!---------------------------------------------------------------------- !! obs_averg_h2d : Horizontal averaging to the observation footprint !!---------------------------------------------------------------------- !! * Modules used USE par_kind, ONLY : & ! Precision variables & wp USE phycst, ONLY : & ! Physical constants & rad, & & ra, & & rpi USE dom_oce, ONLY : & & jpi, jpj, & & e1t, e2t, & & e1f, e2f, & & glamt, gphit, & & nproc USE in_out_manager USE obs_const, ONLY : & & obfillflt ! Fillvalue USE obs_utils ! Utility functions USE lib_mpp, ONLY : & & ctl_warn, ctl_stop, & & mpp_min, lk_mpp IMPLICIT NONE !! * Routine accessibility PRIVATE obs_avg_h2d_rad, & ! Horizontal averaging using a radial footprint & obs_avg_h2d_rec, & ! Horizontal averaging using a rectangular footprint & obs_deg2dist, & ! Conversion of distance in degrees to distance in metres & obs_dist2corners ! Distance from the centre of obs footprint to the corners of a grid box PUBLIC obs_avg_h2d, & ! Horizontal averaging to the observation footprint & obs_avg_h2d_init, & ! Set up weights for the averaging & obs_max_fpsize ! Works out the maximum number of grid points required for the averaging !!---------------------------------------------------------------------- !! NEMO/OPA 3.3 , NEMO Consortium (2010) !! $Id$ !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) !!---------------------------------------------------------------------- CONTAINS #include "obsaverg_h2d.h90" END MODULE obs_averg_h2d