source: branches/UKMO/r6232_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_averg_h2d.F90 @ 11202

Last change on this file since 11202 was 11202, checked in by jcastill, 15 months ago

Copy of branch branches/UKMO/dev_r5518_obs_oper_update@11130 without namelist_ref changes to allow merging with coupling and biogeochemistry branches

File size: 2.1 KB
Line 
1MODULE obs_averg_h2d
2   !!======================================================================
3   !!                       ***  MODULE obs_averg_h2d   ***
4   !! Observation diagnostics: Perform the horizontal averaging
5   !!                          from model grid to observation footprint
6   !!=====================================================================
7
8   !!----------------------------------------------------------------------
9   !!   obs_averg_h2d     : Horizontal averaging to the observation footprint
10   !!----------------------------------------------------------------------
11   !! * Modules used
12   USE par_kind, ONLY : &  ! Precision variables
13      & wp
14   USE phycst,   ONLY : &  ! Physical constants
15      & rad,  &
16      & ra,   &
17      & rpi
18   USE dom_oce,   ONLY : &
19      & jpi, jpj, &
20      & e1t, e2t, &
21      & e1f, e2f, &
22      & glamt, gphit, &
23      & nproc
24   USE in_out_manager
25   USE obs_const, ONLY : &
26      & obfillflt    ! Fillvalue
27   USE obs_utils           ! Utility functions
28   USE lib_mpp,   ONLY : &
29      & ctl_warn, ctl_stop, &
30      & mpp_min, lk_mpp
31
32   IMPLICIT NONE
33
34   !! * Routine accessibility
35   PRIVATE obs_avg_h2d_rad, & ! Horizontal averaging using a radial footprint
36      &    obs_avg_h2d_rec, & ! Horizontal averaging using a rectangular footprint
37      &    obs_deg2dist,    & ! Conversion of distance in degrees to distance in metres
38      &    obs_dist2corners   ! Distance from the centre of obs footprint to the corners of a grid box
39   
40   PUBLIC obs_avg_h2d,      & ! Horizontal averaging to the observation footprint
41      &   obs_avg_h2d_init, & ! Set up weights for the averaging
42      &   obs_max_fpsize      ! Works out the maximum number of grid points required for the averaging
43
44   !!----------------------------------------------------------------------
45   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
46   !! $Id$
47   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
48   !!----------------------------------------------------------------------
49
50CONTAINS
51 
52#include "obsaverg_h2d.h90"
53
54END MODULE obs_averg_h2d
Note: See TracBrowser for help on using the repository browser.