| 123456789101112131415161718192021222324252627282930313233343536373839 |
- MODULE obs_profiles
- !!=====================================================================
- !! *** MODULE obs_profiles ***
- !! Observation diagnostics: Storage space for profile observations
- !! arrays and additional flags etc.
- !!=====================================================================
- !!----------------------------------------------------------------------
- !! NEMO/OPA 3.3 , NEMO Consortium (2010)
- !! $Id: obs_profiles.F90 2733 2011-04-08 15:55:31Z rblod $
- !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
- !!----------------------------------------------------------------------
-
- !! * 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
|
