From 0f27bed269aeb1b22cb28f2f2b910ca8bc416048 Mon Sep 17 00:00:00 2001 From: apcraig Date: Mon, 7 Aug 2023 16:43:57 -0600 Subject: [PATCH] Add warning message for deprecated zsalinity --- cicecore/cicedyn/analysis/ice_history_bgc.F90 | 3 --- cicecore/shared/ice_init_column.F90 | 2 ++ 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/cicecore/cicedyn/analysis/ice_history_bgc.F90 b/cicecore/cicedyn/analysis/ice_history_bgc.F90 index 1e0afcfe5..7c87c1f70 100644 --- a/cicecore/cicedyn/analysis/ice_history_bgc.F90 +++ b/cicecore/cicedyn/analysis/ice_history_bgc.F90 @@ -150,9 +150,6 @@ module ice_history_bgc ! field indices !--------------------------------------------------------------- - integer (kind=int_kind), dimension(max_nstrm), public :: & - n_zsal - integer(kind=int_kind), dimension(icepack_max_iso,max_nstrm) :: & n_fiso_atm , & n_fiso_ocn , & diff --git a/cicecore/shared/ice_init_column.F90 b/cicecore/shared/ice_init_column.F90 index 81b7e9960..5b25dc165 100644 --- a/cicecore/shared/ice_init_column.F90 +++ b/cicecore/shared/ice_init_column.F90 @@ -1605,6 +1605,8 @@ subroutine input_zbgc write(nu_diag,1005) ' phi_snow = ', phi_snow endif write(nu_diag,1010) ' solve_zsal (deprecated) = ', solve_zsal + write(nu_diag,* ) ' WARNING: zsalinity has been deprecated. Namelists and interfaces' + write(nu_diag,* ) ' will be removed in a future version' write(nu_diag,1010) ' skl_bgc = ', skl_bgc write(nu_diag,1010) ' restart_bgc = ', restart_bgc