Changeset 15187 for NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_field.F90

Timestamp:

2021-08-13T11:34:58+02:00 (3 years ago)

Author:

dford

Message:

Update treatment of SLA and POTM additional/extra variables.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_field.F90 (modified) (3 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_field.F90

@@ -63 +63 @@
       INTEGER  :: n2dint             !: Type of horizontal interpolation method
       INTEGER  :: nmsshc             !: MSSH correction scheme
+      INTEGER  :: nadd_ssh           !: Index of additional variable representing SSH
+      INTEGER  :: next_mdt           !: Index of extra variable representing MDT
       !
       LOGICAL  :: lenabled           !: Logical switch for group being processed and not ignored
@@ -231 +233 @@
          sdobsgroup%lvel3d        = .false.
          sdobsgroup%lsla          = .false.
+         sdobsgroup%nadd_ssh      = 0
+         sdobsgroup%next_mdt      = 0
 
          DO jtype = 1, jpmaxntypes
@@ -265 +269 @@
                ELSEIF ( TRIM(sdobsgroup%cobstypes(itype)) == cobsname_sla ) THEN
                   sdobsgroup%lsla = .true.
-! THESE WILL EACH NEED TO BE 1 (ADD=SSH, EXT=MDT)
-                  sdobsgroup%naddvars = 0
-                  sdobsgroup%nextvars = 0
+                  ! SSH=additional, MDT=extra
+                  sdobsgroup%naddvars = sdobsgroup%naddvars + 1
+                  sdobsgroup%nextvars = sdobsgroup%nextvars + 1
+                  sdobsgroup%nadd_ssh = sdobsgroup%naddvars
+                  sdobsgroup%next_mdt = sdobsgroup%nextvars
 ! DO THIS FOR FBD TOO
                ENDIF