Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
MODULE obs_profiles
!!=====================================================================
!! *** MODULE obs_profiles ***
!! Observation diagnostics: Storage space for profile observations
!! arrays and additional flags etc.
!!=====================================================================
!!----------------------------------------------------------------------
!! NEMO/OCE 4.0 , NEMO Consortium (2018)
!! $Id: obs_profiles.F90 10068 2018-08-28 14:09:04Z nicolasmartin $
!! Software governed by the CeCILL license (see ./LICENSE)
!!----------------------------------------------------------------------
!! * Modules used
USE obs_profiles_def ! Definition of profile data types and tools
IMPLICIT NONE
SAVE
!! * Routine accessibility
PRIVATE
PUBLIC nprofsets, nprofvars, nprofextr, profdata, prodatqc
PUBLIC nvelosets, nvelovars, nveloextr, velodata, veldatqc
!! * Shared Module variables
INTEGER :: nprofsets ! Total number of profile data sets
INTEGER :: nprofvars ! Total number of variables for profiles
INTEGER :: nprofextr ! Extra fields for each variable
TYPE(obs_prof), POINTER :: profdata(:) ! Initial profile data
TYPE(obs_prof), POINTER :: prodatqc(:) ! Profile data after quality control
INTEGER :: nvelosets ! Total number of velocity profile data sets
INTEGER :: nvelovars ! Total number of variables for profiles
INTEGER :: nveloextr ! Extra fields for each variable
TYPE(obs_prof), POINTER :: velodata(:) ! Initial velocity profile data
TYPE(obs_prof), POINTER :: veldatqc(:) ! Velocity profile data after quality control
END MODULE obs_profiles