source: branches/UKMO/r6232_tracer_advection/NEMOGCM/NEMO/OPA_SRC/OBS/obs_seaice.F90 @ 9295

Last change on this file since 9295 was 9295, checked in by jcastill, 3 years ago

Remove svn keywords

File size: 1.4 KB
Line 
1MODULE obs_seaice
2   !!=====================================================================
3   !!                       ***  MODULE  obs_seaice  ***
4   !! Observation diagnostics: Storage space for sea ice 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_surf_def ! Definition of sea ice data types and tools
16
17   IMPLICIT NONE
18   
19   SAVE
20
21   !! * Routine accessibility
22   PRIVATE
23
24   PUBLIC nseaicevars, nseaiceextr, nseaicesets, seaicedata, seaicedatqc
25
26   !! * Shared Module variables
27   INTEGER :: nseaicevars                               ! Number of seaicedata variables
28   INTEGER :: nseaiceextr                               ! Number of seaicedata extra
29                                                     ! variables
30   INTEGER :: nseaicesets                               ! Number of seaicedata sets
31   TYPE(obs_surf), POINTER, DIMENSION(:) :: seaicedata  ! Initial sea ice data
32   TYPE(obs_surf), POINTER, DIMENSION(:) :: seaicedatqc ! Sea ice data after quality control
33
34END MODULE obs_seaice
35
Note: See TracBrowser for help on using the repository browser.