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

source: branches/UKMO/DEV_r5107_dynvor_updates/NEMOGCM/NEMO/OPA_SRC/OBS/obs_sst.F90 @ 5256

Last change on this file since 5256 was 5256, checked in by mikebell, 9 years ago

Clean up key words

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