Changeset 6854 for branches/UKMO/dev_r4650_general_vert_coord_obsoper_surf_bgc/NEMOGCM/NEMO/OPA_SRC/OBS/obs_logchl.F90

Timestamp:

2016-08-08T12:26:45+02:00 (8 years ago)

Author:

dford

Message:

Initial implementation of observation operator for LogChl?.

File:

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

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

@@ -1 @@
-MODULE obs_seaice
+MODULE obs_logchl
    !!=====================================================================
-   !!                       ***  MODULE  obs_seaice  ***
-   !! Observation diagnostics: Storage space for sea ice observations
+   !!                       ***  MODULE  obs_logchl  ***
+   !! Observation diagnostics: Storage space for logchl observations
    !!                          arrays and additional flags etc.
    !!=====================================================================
@@ -13 +13 @@
    
    !! * Modules used 
-   USE obs_surf_def ! Definition of sea ice data types and tools
+   USE obs_surf_def ! Definition of surface data types and tools
 
    IMPLICIT NONE
@@ -22 +22 @@
    PRIVATE
 
-   PUBLIC nseaicevars, nseaiceextr, nseaicesets, seaicedata, seaicedatqc
+   PUBLIC nlogchlvars, nlogchlextr, nlogchlsets, logchldata, logchldatqc
 
    !! * Shared Module variables
-   INTEGER :: nseaicevars                               ! Number of seaicedata variables
-   INTEGER :: nseaiceextr                               ! Number of seaicedata extra 
-                                                     ! variables
-   INTEGER :: nseaicesets                               ! Number of seaicedata sets
-   TYPE(obs_surf), POINTER, DIMENSION(:) :: seaicedata  ! Initial sea ice data
-   TYPE(obs_surf), POINTER, DIMENSION(:) :: seaicedatqc ! Sea ice data after quality control
+   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
 
-END MODULE obs_seaice
+END MODULE obs_logchl