change author on new subroutines

E3SM-Project · Jul 23, 2024 · 77feb92 · 77feb92
1 parent 00fc261
commit 77feb92
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 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
@@ -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
@@ -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.