From 1be8e3356f473fcf05ef7c2071075ea30cfa4418 Mon Sep 17 00:00:00 2001 From: Matthew Masarik Date: Tue, 7 Nov 2023 10:29:58 -0600 Subject: [PATCH] w3ounfmetamd.F90: fix group number, 8 -> 6 --- model/src/w3ounfmetamd.F90 | 42 ++++++++++++++++++-------------------- 1 file changed, 20 insertions(+), 22 deletions(-) diff --git a/model/src/w3ounfmetamd.F90 b/model/src/w3ounfmetamd.F90 index 7789dc80a..b3fb394f2 100644 --- 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 ---------------- !