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_sla.F90 in branches/UKMO/dev_r10171_test_crs_AMM7/NEMOGCM/NEMO/OPA_SRC/OBS – NEMO

source: branches/UKMO/dev_r10171_test_crs_AMM7/NEMOGCM/NEMO/OPA_SRC/OBS/obs_sla.F90 @ 10207

Last change on this file since 10207 was 10207, checked in by cmao, 5 years ago

remove svn keyword

File size: 1.4 KB
Line 
1MODULE obs_sla
2   !!=====================================================================
3   !!                       ***  MODULE  obs_sla  ***
4   !! Observation diagnostics: Storage space for SLA observations
5   !!                          arrays and additional flags etc.
6   !!=====================================================================
7   !!----------------------------------------------------------------------
8   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
9   !! $Id$
10   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
11   !!----------------------------------------------------------------------
12   
13   !! * Modules used
14   USE obs_surf_def ! Definition of SLA data types and tools
15
16   IMPLICIT NONE
17   
18   SAVE
19
20   !! * Routine accessibility
21   PRIVATE
22
23   PUBLIC nslavars, nslaextr, nslasets, sladata, sladatqc
24
25   !! * Shared Module variables
26   INTEGER :: nslavars                               ! Number of sladata variables
27   INTEGER :: nslaextr                               ! Number of sladata extra
28                                                     ! variables
29   INTEGER :: nslasets                               ! Number of sladata sets                                               
30   TYPE(obs_surf), POINTER, DIMENSION(:) :: sladata  ! Initial SLA data
31   TYPE(obs_surf), POINTER, DIMENSION(:) :: sladatqc ! SLA data after quality control
32
33END MODULE obs_sla
Note: See TracBrowser for help on using the repository browser.