From 174371915003674b04deb9bb882875d84abbd8db Mon Sep 17 00:00:00 2001
From: TillRasmussen <tillrasmussen@gmail.com>
Date: Tue, 22 Feb 2022 13:22:49 +0000
Subject: [PATCH] added legacy comment in ice_dyn_finish

---
 cicecore/cicedynB/dynamics/ice_dyn_shared.F90 | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/cicecore/cicedynB/dynamics/ice_dyn_shared.F90 b/cicecore/cicedynB/dynamics/ice_dyn_shared.F90
index 658e90806..da6536eea 100755
--- a/cicecore/cicedynB/dynamics/ice_dyn_shared.F90
+++ b/cicecore/cicedynB/dynamics/ice_dyn_shared.F90
@@ -760,6 +760,8 @@ subroutine dyn_finish (nx_block, ny_block, &
                              uvel,     vvel,     &
                              uocn,     vocn,     &
                              aiu,      fm,       &
+!                             strintx,  strinty,  &
+!                             strairx,  strairy,  &
                              strocnx,  strocny,  &
                              strocnxT, strocnyT) 
 
@@ -778,6 +780,10 @@ subroutine dyn_finish (nx_block, ny_block, &
          vocn    , & ! ocean current, y-direction (m/s)
          aiu     , & ! ice fraction on u-grid
          fm          ! Coriolis param. * mass in U-cell (kg/s)
+!         strintx , & ! divergence of internal ice stress, x (N/m^2)
+!         strinty , & ! divergence of internal ice stress, y (N/m^2)
+!         strairx , & ! stress on ice by air, x-direction
+!         strairy     ! stress on ice by air, y-direction
 
       real (kind=dbl_kind), dimension (nx_block,ny_block), intent(inout) :: &
          strocnx , & ! ice-ocean stress, x-direction