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