Changeset 15225 for NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_write.F90

Timestamp:

2021-09-02T17:52:53+02:00 (3 years ago)

Author:

dford

Message:

Improve handling of velocities, including adding surface currents.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_write.F90 (modified) (1 diff)

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

@@ -412 +412 @@
          fbdata%cdwmo(jo)     = surfdata%cwmo(jo)
          fbdata%kindex(jo)    = surfdata%nsfil(jo)
-         IF (ln_grid_global) THEN
-            fbdata%iobsi(jo,1) = surfdata%mi(jo)
-            fbdata%iobsj(jo,1) = surfdata%mj(jo)
-         ELSE
-            fbdata%iobsi(jo,1) = mig(surfdata%mi(jo))
-            fbdata%iobsj(jo,1) = mjg(surfdata%mj(jo))
-         ENDIF
+         DO jvar = 1, surfdata%nvar
+            IF (ln_grid_global) THEN
+               fbdata%iobsi(jo,jvar) = surfdata%mi(jo,jvar)
+               fbdata%iobsj(jo,jvar) = surfdata%mj(jo,jvar)
+            ELSE
+               fbdata%iobsi(jo,jvar) = mig(surfdata%mi(jo,jvar))
+               fbdata%iobsj(jo,jvar) = mjg(surfdata%mj(jo,jvar))
+            ENDIF
+         END DO
          CALL greg2jul( 0, &
             &           surfdata%nmin(jo), &