Changeset 8105 for branches/UKMO/dev_r4650_general_vert_coord_obsoper_pfts/NEMOGCM/NEMO/OPA_SRC/OBS/obs_logchl.F90

Timestamp:

2017-05-31T17:35:14+02:00 (7 years ago)

Author:

dford

Message:

Implement initial version of PFT logchl obs operator, developed by Jozef S.

File:

• branches/UKMO/dev_r4650_general_vert_coord_obsoper_pfts/NEMOGCM/NEMO/OPA_SRC/OBS/obs_logchl.F90 (modified) (1 diff)

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

@@ -22 +22 @@
    PRIVATE
 
-   PUBLIC nlogchlvars, nlogchlextr, nlogchlsets, logchldata, logchldatqc
+   PUBLIC nlogchlvars, nlogchlpftvars, nlogchlextr, nlogchlpftextr, nlogchlsets, nlogchlpftsets, logchldata, logchldatqc, logchlpftdata, logchlpftdatqc, nn_logchlpfts
 
    !! * Shared Module variables
+   INTEGER :: nn_logchlpfts
+
    INTEGER :: nlogchlvars                               ! Number of logchldata variables
    INTEGER :: nlogchlextr                               ! Number of logchldata extra 
-                                                        ! variables
-   INTEGER :: nlogchlsets                               ! Number of logchldata sets
+                   
+   INTEGER :: nlogchlpftvars                               ! Number of logchldata variables
+   INTEGER :: nlogchlpftextr                               ! Number of logchldata extra
+                                     ! variables
+   INTEGER :: nlogchlsets    
+   INTEGER :: nlogchlpftsets   
+                           ! 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
 
+   TYPE(obs_surf), POINTER, DIMENSION(:) :: logchlpftdata  ! Initial logchl data
+   TYPE(obs_surf), POINTER, DIMENSION(:) :: logchlpftdatqc 
+
 END MODULE obs_logchl