From e0ca46b0728d14a7fffd6d661a74c5199a7c310e Mon Sep 17 00:00:00 2001 From: Robert Hallberg Date: Fri, 20 Jul 2018 17:47:16 -0400 Subject: [PATCH] +Added stress_mag to ice_ocean_boundary_type Added a new element, stress_mag, with the time-mean of the magnitude of the wind stresses at tracer points, to the ice_ocean_boundary_type. It is not yet being used, so all answers are bitwise identical. --- config_src/coupled_driver/MOM_surface_forcing.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/config_src/coupled_driver/MOM_surface_forcing.F90 b/config_src/coupled_driver/MOM_surface_forcing.F90 index 19a0ddbf86..02b54daefe 100644 --- a/config_src/coupled_driver/MOM_surface_forcing.F90 +++ b/config_src/coupled_driver/MOM_surface_forcing.F90 @@ -166,6 +166,7 @@ module MOM_surface_forcing real, pointer, dimension(:,:) :: fprec =>NULL() !< mass flux of frozen precip (kg/m2/s) real, pointer, dimension(:,:) :: runoff =>NULL() !< mass flux of liquid runoff (kg/m2/s) real, pointer, dimension(:,:) :: calving =>NULL() !< mass flux of frozen runoff (kg/m2/s) + real, pointer, dimension(:,:) :: stress_mag =>NULL() !< The time-mean magnitude of the stress on the ocean (Pa) real, pointer, dimension(:,:) :: ustar_berg =>NULL() !< frictional velocity beneath icebergs (m/s) real, pointer, dimension(:,:) :: area_berg =>NULL() !< area covered by icebergs(m2/m2) real, pointer, dimension(:,:) :: mass_berg =>NULL() !< mass of icebergs(kg/m2)