Changeset 6856 for branches/UKMO/dev_r4650_general_vert_coord_obsoper_surf_bgc/NEMOGCM/NEMO/OPA_SRC/OBS/obs_fco2.F90

Timestamp:

2016-08-08T17:22:29+02:00 (8 years ago)

Author:

dford

Message:

Initial implementation of observation operator for fCO2.

File:

• branches/UKMO/dev_r4650_general_vert_coord_obsoper_surf_bgc/NEMOGCM/NEMO/OPA_SRC/OBS/obs_fco2.F90 (copied) (copied from branches/UKMO/dev_r4650_general_vert_coord_obsoper_surf_bgc/NEMOGCM/NEMO/OPA_SRC/OBS/obs_logchl.F90) (2 diffs)

branches/UKMO/dev_r4650_general_vert_coord_obsoper_surf_bgc/NEMOGCM/NEMO/OPA_SRC/OBS/obs_fco2.F90

@@ -1 @@
-MODULE obs_logchl
+MODULE obs_fco2
    !!=====================================================================
-   !!                       ***  MODULE  obs_logchl  ***
-   !! Observation diagnostics: Storage space for logchl observations
+   !!                       ***  MODULE  obs_fco2  ***
+   !! Observation diagnostics: Storage space for fco2 observations
    !!                          arrays and additional flags etc.
    !!=====================================================================
@@ -22 +22 @@
    PRIVATE
 
-   PUBLIC nlogchlvars, nlogchlextr, nlogchlsets, logchldata, logchldatqc
+   PUBLIC nfco2vars, nfco2extr, nfco2sets, fco2data, fco2datqc
 
    !! * Shared Module variables
-   INTEGER :: nlogchlvars                               ! Number of logchldata variables
-   INTEGER :: nlogchlextr                               ! Number of logchldata extra 
-                                                        ! variables
-   INTEGER :: nlogchlsets                               ! Number of logchldata sets
-   TYPE(obs_surf), POINTER, DIMENSION(:) :: logchldata  ! Initial logchl data
-   TYPE(obs_surf), POINTER, DIMENSION(:) :: logchldatqc ! Sea ice data after quality control
+   INTEGER :: nfco2vars                               ! Number of fco2data variables
+   INTEGER :: nfco2extr                               ! Number of fco2data extra 
+                                                      ! variables
+   INTEGER :: nfco2sets                               ! Number of fco2data sets
+   TYPE(obs_surf), POINTER, DIMENSION(:) :: fco2data  ! Initial fco2 data
+   TYPE(obs_surf), POINTER, DIMENSION(:) :: fco2datqc ! Sea ice data after quality control
 
-END MODULE obs_logchl
+END MODULE obs_fco2