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/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS – NEMO

source: branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_inter_h2d.F90 @ 2281

Last change on this file since 2281 was 2281, checked in by smasson, 13 years ago

set proper svn properties to all files...

  • Property svn:keywords set to Id
File size: 2.4 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   
31   IMPLICIT NONE
32
33   !! * Routine accessibility
34   PRIVATE obs_int_h2d_ds1, & ! Distance-weighted interpolation               
35      &    obs_int_h2d_ds2, & ! Distance-weighted interpolation (small angle)
36      &    obs_int_h2d_bil, & ! Bilinear interpolation (geographical grid)   
37      &    obs_int_h2d_bir, & ! Bilinear remapping interpolation (general grid)
38      &    obs_int_h2d_pol, & ! Polynomial interpolation                       
39      &    lu_invmat,       & ! Invert a matrix using LU decomposition
40      &    lu_decomp,       & ! LU decomposition
41      &    lu_backsb,       & ! LU decomposition - back substitution
42      &    bil_wgt            ! Compute weights for bilinear remapping
43   PUBLIC obs_int_h2d,      & ! Horizontal interpolation to the observation point
44      &   obs_int_h2d_init    ! Set up weights and vertical mask
45
46CONTAINS
47 
48#include "obsinter_h2d.h90"
49
50END MODULE obs_inter_h2d
Note: See TracBrowser for help on using the repository browser.