[2128] | 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 |
---|
[2715] | 30 | USE lib_mpp,ONLY : & |
---|
| 31 | & ctl_warn, ctl_stop |
---|
| 32 | |
---|
[2128] | 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 | |
---|
[2287] | 48 | !!---------------------------------------------------------------------- |
---|
[9598] | 49 | !! NEMO/OCE 4.0 , NEMO Consortium (2018) |
---|
[2287] | 50 | !! $Id$ |
---|
[10068] | 51 | !! Software governed by the CeCILL license (see ./LICENSE) |
---|
[2287] | 52 | !!---------------------------------------------------------------------- |
---|
| 53 | |
---|
[2128] | 54 | CONTAINS |
---|
| 55 | |
---|
[2202] | 56 | #include "obsinter_h2d.h90" |
---|
[2128] | 57 | |
---|
| 58 | END MODULE obs_inter_h2d |
---|