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

source: branches/UKMO/dev_r4650_general_vert_coord_obsoper_pfts/NEMOGCM/NEMO/OPA_SRC/OBS/obs_logchl.F90 @ 8105

Last change on this file since 8105 was 8105, checked in by dford, 8 years ago

Implement initial version of PFT logchl obs operator, developed by Jozef S.
File size: 1.9 KB
Line 
1MODULE obs_logchl
2   !!=====================================================================
3   !!                       ***  MODULE  obs_logchl  ***
4   !! Observation diagnostics: Storage space for logchl 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 surface data types and tools
16
17   IMPLICIT NONE
18   
19   SAVE
20
21   !! * Routine accessibility
22   PRIVATE
23
24   PUBLIC nlogchlvars, nlogchlpftvars, nlogchlextr, nlogchlpftextr, nlogchlsets, nlogchlpftsets, logchldata, logchldatqc, logchlpftdata, logchlpftdatqc, nn_logchlpfts
25
26   !! * Shared Module variables
27   INTEGER :: nn_logchlpfts
28
29   INTEGER :: nlogchlvars                               ! Number of logchldata variables
30   INTEGER :: nlogchlextr                               ! Number of logchldata extra
31                   
32   INTEGER :: nlogchlpftvars                               ! Number of logchldata variables
33   INTEGER :: nlogchlpftextr                               ! Number of logchldata extra
34                                     ! variables
35   INTEGER :: nlogchlsets   
36   INTEGER :: nlogchlpftsets   
37                           ! Number of logchldata sets
38   TYPE(obs_surf), POINTER, DIMENSION(:) :: logchldata  ! Initial logchl data
39   TYPE(obs_surf), POINTER, DIMENSION(:) :: logchldatqc ! Sea ice data after quality control
40
41   TYPE(obs_surf), POINTER, DIMENSION(:) :: logchlpftdata  ! Initial logchl data
42   TYPE(obs_surf), POINTER, DIMENSION(:) :: logchlpftdatqc 
43
44END MODULE obs_logchl
45
Note: See TracBrowser for help on using the repository browser.