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

source: branches/UKMO/dev_r5785_SSS_obsoper/NEMOGCM/NEMO/OPA_SRC/OBS/obs_pco2.F90 @ 7773

Last change on this file since 7773 was 7773, checked in by mattmartin, 7 years ago

Committing updates after doing the following:

  • merging the branch dev_r4650_general_vert_coord_obsoper@7763 into this branch
  • updating it so that the following OBS changes were implemented correctly on top of the simplification changes:
    • generalised vertical coordinate for profile obs. This was done so that is now the default option.
    • sst bias correction implemented with the new simplified obs code.
    • included the biogeochemical obs types int he new simplified obs code.
    • included the changes to exclude obs in the boundary for limited area models
    • included other changes for the efficiency of the obs operator to remove global arrays.
File size: 1.4 KB
Line 
1MODULE obs_pco2
2   !!=====================================================================
3   !!                       ***  MODULE  obs_pco2  ***
4   !! Observation diagnostics: Storage space for pco2 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 npco2vars, npco2extr, npco2sets, pco2data, pco2datqc
25
26   !! * Shared Module variables
27   INTEGER :: npco2vars                               ! Number of pco2data variables
28   INTEGER :: npco2extr                               ! Number of pco2data extra
29                                                      ! variables
30   INTEGER :: npco2sets                               ! Number of pco2data sets
31   TYPE(obs_surf), POINTER, DIMENSION(:) :: pco2data  ! Initial pco2 data
32   TYPE(obs_surf), POINTER, DIMENSION(:) :: pco2datqc ! Sea ice data after quality control
33
34END MODULE obs_pco2
35
Note: See TracBrowser for help on using the repository browser.