added legacy comment in ice_dyn_finish

CICE-Consortium · Feb 22, 2022 · 1743719 · 1743719
1 parent 4ba345a
commit 1743719
Showing 1 changed file with 6 additions and 0 deletions.
diff --git 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