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_z1d.F90 in branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/OBS – NEMO

source: branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/OBS/obs_inter_z1d.F90 @ 9580

Last change on this file since 9580 was 9570, checked in by nicolasmartin, 6 years ago

Global renaming for core routines (./NEMO)

  • Folders
    • LIM_SRC_3 -> ICE_SRC
    • OPA_SRC -> OCE_SRC
  • CPP key: key_lim3 -> key_si3
  • Modules, (sub)routines and variables names
    • MPI: mpi_comm_opa -> mpi_comm_oce, MPI_COMM_OPA -> MPI_COMM_OCE, mpi_init_opa -> mpi_init_oce
    • AGRIF: agrif_opa_* -> agrif_oce_*, agrif_lim3_* -> agrif_si3_* and few more
    • TOP-PISCES: p.zlim -> p.zice, namp.zlim -> namp.zice
  • Comments
    • NEMO/OPA -> NEMO/OCE
    • ESIM|LIM3 -> SI3
  • Property svn:keywords set to Id
File size: 1.4 KB
Line 
1MODULE obs_inter_z1d
2   !!======================================================================
3   !!                       ***  MODULE obs_inter_z1d  ***
4   !! Observation diagnostics: Perform the vertical interpolation
5   !!                          from model grid to observation location
6   !!======================================================================
7
8   !!----------------------------------------------------------------------
9   !!   obs_int_z1d     : Vertical interpolation to the observation point
10   !!   obs_int_z1d_spl : Compute the vertical 2nd derivative of the
11   !!                     interpolating function for a cubic spline (n1dint=1)
12   !!----------------------------------------------------------------------
13   !! * Modules used
14   USE par_kind, ONLY : &  ! Precision variables
15      & wp
16
17   IMPLICIT NONE
18
19   !! * Routine accessibility
20   PRIVATE
21
22   PUBLIC obs_int_z1d,    &  ! Vertical interpolation to the observation pt.
23      &   obs_int_z1d_spl    ! Compute the vertical 2nd derivative of the
24                             ! interpolating function used with a cubic spline
25
26   !!----------------------------------------------------------------------
27   !! NEMO/OCE 3.3 , NEMO Consortium (2010)
28   !! $Id$
29   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
30   !!----------------------------------------------------------------------
31
32CONTAINS
33
34#include "obsinter_z1d.h90"
35
36END MODULE obs_inter_z1d
37
Note: See TracBrowser for help on using the repository browser.