Changeset 15224 for NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_read_prof.F90

Timestamp:

2021-09-01T17:16:18+02:00 (3 years ago)

Author:

dford

Message:

Fix treatment of extra variables for profiles, and remove a couple of unused routines.

File:

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

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

@@ -613 +613 @@
       ENDIF
       CALL obs_prof_alloc( profdata, kvars, kadd+iadd, kextr+iextr, iprof, iv3dt, &
-         &                 kstp, jpi, jpj, jpk )
+         &                 ip3dt, kstp, jpi, jpj, jpk )
 
       ! * Read obs/positions, QC, all variable and assign to profdata
@@ -765 +765 @@
                      & CYCLE
 
-                  IF (ldallatall) THEN
+                  IF ( ldallatall .OR. (iextr > 0) ) THEN
 
                      DO jvar = 1, kvars
@@ -857 +857 @@
                   ! Extra variables
                   IF ( iextr > 0 ) THEN
+                     profdata%vext%nepidx(ip3dt) = iprof
+                     profdata%vext%nelidx(ip3dt) = ij
                      DO jext = 1, iextr
-                        profdata%vext(iprof,kextr+jext) = inpfiles(jj)%pext(ij,ji,jext)
+                        profdata%vext%eobs(ip3dt,kextr+jext) = inpfiles(jj)%pext(ij,ji,jext)
                      END DO
                   ENDIF