1 | MODULE 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 | |
---|
50 | CONTAINS |
---|
51 | |
---|
52 | #include "obsaverg_h2d.h90" |
---|
53 | |
---|
54 | END MODULE obs_averg_h2d |
---|