Skip to content

Commit 9a72ae9

Browse files
committed
New diagnostics for flux divergence, strain-rates, deviatorics stresses, and ice speed; and the magnitude of ice surface slope and driving stress. Fixed some misleading units for variables related to ice viscosity
1 parent ba59078 commit 9a72ae9

File tree

2 files changed

+179
-21
lines changed

2 files changed

+179
-21
lines changed

src/ice_shelf/MOM_ice_shelf.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -824,7 +824,7 @@ subroutine shelf_calc_flux(sfc_state_in, fluxes_in, Time, time_step_in, CS)
824824
ISS%dhdt_shelf(i,j) = (ISS%h_shelf(i,j) - ISS%dhdt_shelf(i,j))*Itime_step
825825
enddo; enddo
826826

827-
call IS_dynamics_post_data(time_step, Time, CS%dCS, G)
827+
call IS_dynamics_post_data(time_step, Time, CS%dCS, ISS, G)
828828
endif
829829

830830
if (CS%shelf_mass_is_dynamic) &
@@ -2603,7 +2603,7 @@ subroutine solo_step_ice_shelf(CS, time_interval, nsteps, Time, min_time_step_in
26032603
call process_and_post_scalar_data(CS, vaf0, vaf0_A, vaf0_G, Ifull_time_step, dh_adott, dh_adott*0.0)
26042604
call disable_averaging(CS%diag)
26052605

2606-
call IS_dynamics_post_data(full_time_step, Time, CS%dCS, G)
2606+
call IS_dynamics_post_data(full_time_step, Time, CS%dCS, ISS, G)
26072607
end subroutine solo_step_ice_shelf
26082608

26092609
!> Post_data calls for ice-sheet scalars

0 commit comments

Comments
 (0)