From 77feb929dcad7ab939f7108c6b4f292d716e5530 Mon Sep 17 00:00:00 2001
From: Irena Vankova <irena.vanek@gmail.com>
Date: Tue, 23 Jul 2024 13:45:38 -0600
Subject: [PATCH] change author on new subroutines

---
 .../src/shared/mpas_ocn_surface_bulk_forcing.F       | 12 ++++++------
 .../src/shared/mpas_ocn_thick_surface_flux.F         |  8 ++++----
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/components/mpas-ocean/src/shared/mpas_ocn_surface_bulk_forcing.F b/components/mpas-ocean/src/shared/mpas_ocn_surface_bulk_forcing.F
index 81732b637a97..11d70ae9c40d 100644
--- a/components/mpas-ocean/src/shared/mpas_ocn_surface_bulk_forcing.F
+++ b/components/mpas-ocean/src/shared/mpas_ocn_surface_bulk_forcing.F
@@ -136,8 +136,8 @@ end subroutine ocn_surface_bulk_forcing_tracers!}}}
 !  routine ocn_surface_bulk_forcing_tracers_subglacial_runoff
 !
 !> \brief   Determines the tracers forcing array used for the bulk forcing.
-!> \author  Doug Jacobsen
-!> \date    04/25/12
+!> \author  Irena Vankova
+!> \date    July 2024
 !> \details
 !>  This routine computes the tracers forcing arrays used later in MPAS.
 !
@@ -425,8 +425,8 @@ end subroutine ocn_surface_bulk_forcing_thick!}}}
 !  routine ocn_surface_bulk_forcing_thick_subglacial_runoff
 !
 !> \brief   Determines the thickness forcing array used for the bulk forcing.
-!> \author  Doug Jacobsen
-!> \date    04/25/12
+!> \author  Irena Vankova
+!> \date    July 2024
 !> \details
 !>  This routine computes the thickness forcing arrays used later in MPAS.
 !
@@ -752,8 +752,8 @@ end subroutine ocn_surface_bulk_forcing_active_tracers!}}}
 !  routine ocn_surface_bulk_forcing_active_tracers_subglacial_runoff
 !
 !> \brief   Determines the active tracers forcing array used for the bulk forcing.
-!> \author  Doug Jacobsen
-!> \date    04/25/12
+!> \author  Irena Vankova
+!> \date    July 2024
 !> \details
 !>  This routine computes the active tracers forcing arrays used later in MPAS.
 !
diff --git a/components/mpas-ocean/src/shared/mpas_ocn_thick_surface_flux.F b/components/mpas-ocean/src/shared/mpas_ocn_thick_surface_flux.F
index 8e389a74ba37..b959a89bff1d 100644
--- a/components/mpas-ocean/src/shared/mpas_ocn_thick_surface_flux.F
+++ b/components/mpas-ocean/src/shared/mpas_ocn_thick_surface_flux.F
@@ -175,8 +175,8 @@ end subroutine ocn_thick_surface_flux_tend!}}}
 !  routine ocn_thick_surface_flux_tend_subglacial_runoff
 !
 !> \brief   Computes tendency term from horizontal advection of thickness
-!> \author  Doug Jacobsen
-!> \date    15 September 2011
+!> \author  Irena Vankova
+!> \date    July 2024
 !> \details
 !>  This routine computes the horizontal advection tendency for
 !>  thickness based on current state and user choices of forcings.
@@ -276,8 +276,8 @@ end subroutine ocn_thick_surface_flux_tend_subglacial_runoff!}}}
 !  routine ocn_thick_surface_flux_init
 !
 !> \brief   Initializes ocean horizontal thickness surface fluxes
-!> \author  Doug Jacobsen
-!> \date    12/17/12
+!> \author  Irena Vankova
+!> \date    July 2024
 !> \details
 !>  This routine initializes quantities related to thickness
 !>  surface fluxes in the ocean.