1 | MODULE 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/OCE 4.0 , NEMO Consortium (2018) |
---|
50 | !! $Id$ |
---|
51 | !! Software governed by the CeCILL license (see ./LICENSE) |
---|
52 | !!---------------------------------------------------------------------- |
---|
53 | |
---|
54 | CONTAINS |
---|
55 | |
---|
56 | #include "obsinter_h2d.h90" |
---|
57 | |
---|
58 | END MODULE obs_inter_h2d |
---|