New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
obs_inter_h2d.F90 in branches/UKMO/r6232_tracer_advection/NEMOGCM/NEMO/OPA_SRC/OBS – NEMO

source: branches/UKMO/r6232_tracer_advection/NEMOGCM/NEMO/OPA_SRC/OBS/obs_inter_h2d.F90 @ 9295

Last change on this file since 9295 was 9295, checked in by jcastill, 6 years ago

Remove svn keywords

File size: 2.7 KB
Line 
1MODULE obs_inter_h2d
2   !!======================================================================
3   !!                       ***  MODULE obs_inter_h2d   ***
4   !! Observation diagnostics: Perform the horizontal interpolation
5   !!                          from model grid to observation location
6   !!=====================================================================
7
8   !!----------------------------------------------------------------------
9   !!   obs_int_h2d     : Horizontal interpolation to the observation point
10   !!   obs_int_h2d_ds1 : Distance-weighted interpolation                 (n2dint=0)
11   !!   obs_int_h2d_ds2 : Distance-weighted interpolation (small angle)   (n2dint=1)
12   !!   obs_int_h2d_bil : Bilinear interpolation (geographical grid)      (n2dint=2)
13   !!   obs_int_h2d_bir : Bilinear remapping interpolation (general grid) (n2dint=3)
14   !!   obs_int_h2d_pol : Polynomial interpolation                        (n2dint=4)
15   !!   bil_wgt         : Compute weights for bilinear remapping
16   !!   lu_invmat       : Invert a matrix using LU decomposition
17   !!   lu_decomp       : LU decomposition
18   !!   lu_backsb       : LU decomposition - back substitution
19   !!----------------------------------------------------------------------
20   !! * Modules used
21   USE par_kind, ONLY : &  ! Precision variables
22      & wp
23   USE phycst,   ONLY : &  ! Physical constants
24      & rad,  &
25      & rpi
26   USE in_out_manager
27   USE obs_const, ONLY : &
28      & obfillflt    ! Fillvalue
29   USE obs_utils           ! Utility functions
30      USE lib_mpp,ONLY : &
31      & ctl_warn, ctl_stop
32
33   IMPLICIT NONE
34
35   !! * Routine accessibility
36   PRIVATE obs_int_h2d_ds1, & ! Distance-weighted interpolation               
37      &    obs_int_h2d_ds2, & ! Distance-weighted interpolation (small angle)
38      &    obs_int_h2d_bil, & ! Bilinear interpolation (geographical grid)   
39      &    obs_int_h2d_bir, & ! Bilinear remapping interpolation (general grid)
40      &    obs_int_h2d_pol, & ! Polynomial interpolation                       
41      &    lu_invmat,       & ! Invert a matrix using LU decomposition
42      &    lu_decomp,       & ! LU decomposition
43      &    lu_backsb,       & ! LU decomposition - back substitution
44      &    bil_wgt            ! Compute weights for bilinear remapping
45   PUBLIC obs_int_h2d,      & ! Horizontal interpolation to the observation point
46      &   obs_int_h2d_init    ! Set up weights and vertical mask
47
48   !!----------------------------------------------------------------------
49   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
50   !! $Id$
51   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
52   !!----------------------------------------------------------------------
53
54CONTAINS
55 
56#include "obsinter_h2d.h90"
57
58END MODULE obs_inter_h2d
Note: See TracBrowser for help on using the repository browser.