From e5057dadd609099e7405c9093fcb6baa39cc24f0 Mon Sep 17 00:00:00 2001
From: Helen Kershaw <hkershaw@ucar.edu>
Date: Mon, 13 Jan 2025 13:06:16 -0500
Subject: [PATCH] fix: use QTY_NAME rather than hardcoded number
---
developer_tests/namelist/test_parse_variables.f90 | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/developer_tests/namelist/test_parse_variables.f90 b/developer_tests/namelist/test_parse_variables.f90
index a3cf9111f..11852cfce 100644
--- a/developer_tests/namelist/test_parse_variables.f90
+++ b/developer_tests/namelist/test_parse_variables.f90
@@ -11,6 +11,8 @@ program test_parse_variables
state_var_type, &
MAX_STATE_VARIABLE_FIELDS_CLAMP, &
MAX_STATE_VARIABLE_FIELDS
+use obs_kind_mod, only : QTY_SALINITY, QTY_POTENTIAL_TEMPERATURE, &
+ QTY_U_CURRENT_COMPONENT
use test ! fortran-testanything
@@ -44,9 +46,9 @@ program test_parse_variables
call ok(state_vars%netcdf_var_names(1) == 'SALT_CUR')
call ok(state_vars%netcdf_var_names(2) == 'TEMP_CUR')
call ok(state_vars%netcdf_var_names(3) == 'UVEL_CUR')
-call ok(state_vars%qtys(1) == 263)
-call ok(state_vars%qtys(2) == 254)
-call ok(state_vars%qtys(3) == 356)
+call ok(state_vars%qtys(1) == QTY_SALINITY)
+call ok(state_vars%qtys(2) == QTY_POTENTIAL_TEMPERATURE)
+call ok(state_vars%qtys(3) == QTY_U_CURRENT_COMPONENT)
call ok(state_vars%updates(1) .eqv. .true.)
call ok(state_vars%updates(2) .eqv. .true.)
call ok(state_vars%updates(3) .eqv. .true.)
@@ -63,9 +65,9 @@ program test_parse_variables
call ok(state_vars_clamp%netcdf_var_names(1) == 'SALT_CUR')
call ok(state_vars_clamp%netcdf_var_names(2) == 'TEMP_CUR')
call ok(state_vars_clamp%netcdf_var_names(3) == 'UVEL_CUR')
-call ok(state_vars_clamp%qtys(1) == 263)
-call ok(state_vars_clamp%qtys(2) == 254)
-call ok(state_vars_clamp%qtys(3) == 356)
+call ok(state_vars_clamp%qtys(1) == QTY_SALINITY)
+call ok(state_vars_clamp%qtys(2) == QTY_POTENTIAL_TEMPERATURE)
+call ok(state_vars_clamp%qtys(3) == QTY_U_CURRENT_COMPONENT)
call ok(state_vars_clamp%clamp_values(1,1) == 0.0)
call ok(state_vars_clamp%clamp_values(1,2) == 0.0)
call ok(state_vars_clamp%clamp_values(2,1) == 0.0)