w3ounfmetamd.F90: fix group number, 8 -> 6

MatthewMasarik-NOAA · Nov 7, 2023 · 1be8e33 · 1be8e33
1 parent 25750e2
commit 1be8e33
Showing 1 changed file with 20 additions and 22 deletions.
diff --git a/model/src/w3ounfmetamd.F90 b/model/src/w3ounfmetamd.F90
@@ -3745,7 +3745,27 @@ SUBROUTINE DEFAULT_META()
     META(2)%VARNG=''
     META(2)%VARNC='toc=sqrt(utoc**2+vtoc**2)'
 
+    ! IFI=6, IFJ=14, USSH
+    META => GROUP(6)%FIELD(14)%META
+    META(1)%FSC    = 0.0005
+    META(1)%UNITS  = 'm s-1'
+    META(1)%ENAME  = '.ussh'
 
+    ! First component
+    META(1)%VARNM='uussh'
+    META(1)%VARNL='eastward surface averaged stokes drift'
+    META(1)%VARNS='sea_surface_wave_averaged_stokes_drift_eastward_velocity'
+    META(1)%VARNG='eastward_surface_averaged_stokes_drift'
+    META(1)%VARND=DIRCOM
+    META(1)%VMIN = -4.95
+    META(1)%VMAX =  4.95
+
+    ! Second component
+    META(2) = META(1)
+    META(2)%VARNM='vussh'
+    META(2)%VARNL='northward surface averaged stokes drift'
+    META(2)%VARNS='sea_surface_wave_averaged_stokes_drift_northward_velocity'
+    META(2)%VARNG='northward_surface_averaged_stokes_drift'
 
 
     !
@@ -3961,28 +3981,6 @@ SUBROUTINE DEFAULT_META()
     META(1)%VMIN = 0
     META(1)%VMAX = 32
 
-
-    ! IFI=8, IFJ=14, USSH
-    META => GROUP(8)%FIELD(14)%META
-    META(1)%FSC    = 0.0005
-    META(1)%UNITS  = 'm s-1'
-    META(1)%ENAME  = '.ussh'
-
-    ! First component
-    META(1)%VARNM='uussh'
-    META(1)%VARNL='eastward surface averaged stokes drift'
-    META(1)%VARNS='sea_surface_wave_averaged_stokes_drift_eastward_velocity'
-    META(1)%VARNG='eastward_surface_averaged_stokes_drift'
-    META(1)%VARND=DIRCOM
-    META(1)%VMIN = -4.95
-    META(1)%VMAX =  4.95
-
-    ! Second component
-    META(2) = META(1)
-    META(2)%VARNM='vussh'
-    META(2)%VARNL='northward surface averaged stokes drift'
-    META(2)%VARNS='sea_surface_wave_averaged_stokes_drift_northward_velocity'
-    META(2)%VARNG='northward_surface_averaged_stokes_drift'
     !
     !---------- GROUP 9 ----------------
     !