[7858] | 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: obs_averg_h2d.F90 2715 2011-03-30 15:58:35Z rblod $ |
---|
| 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 |
---|