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_profiles.F90 in branches/UKMO/r5936_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/OBS – NEMO

source: branches/UKMO/r5936_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/OBS/obs_profiles.F90 @ 7166

Last change on this file since 7166 was 7166, checked in by jcastill, 7 years ago

Remove svn keys

File size: 1.8 KB
Line 
1MODULE obs_profiles
2   !!=====================================================================
3   !!                       ***  MODULE  obs_profiles  ***
4   !! Observation diagnostics: Storage space for profile 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   
14   !! * Modules used
15   USE obs_profiles_def ! Definition of profile data types and tools
16
17   IMPLICIT NONE
18   
19   SAVE
20
21   !! * Routine accessibility
22   PRIVATE
23
24   PUBLIC nprofsets, nprofvars, nprofextr, profdata, prodatqc
25   PUBLIC nvelosets, nvelovars, nveloextr, velodata, veldatqc
26   
27   !! * Shared Module variables
28   INTEGER :: nprofsets                    ! Total number of profile data sets
29   INTEGER :: nprofvars                    ! Total number of variables for profiles
30   INTEGER :: nprofextr                    ! Extra fields for each variable
31   TYPE(obs_prof), POINTER ::  profdata(:) ! Initial profile data
32   TYPE(obs_prof), POINTER ::  prodatqc(:) ! Profile data after quality control
33
34   INTEGER :: nvelosets                     ! Total number of velocity profile data sets
35   INTEGER :: nvelovars                     ! Total number of variables for profiles
36   INTEGER :: nveloextr                     ! Extra fields for each variable
37   TYPE(obs_prof), POINTER ::  velodata(:)  ! Initial velocity profile data
38   TYPE(obs_prof), POINTER ::  veldatqc(:)  ! Velocity profile data after quality control
39END MODULE obs_profiles
Note: See TracBrowser for help on using the repository browser.