From 218f0de21bc82cd10f22a34cb8ab0c930e1845f2 Mon Sep 17 00:00:00 2001 From: Nic Hannah Date: Wed, 20 Jul 2016 15:16:42 +1000 Subject: [PATCH] #40 Add averaging to SLP diagnostic. --- ice_model.F90 | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/ice_model.F90 b/ice_model.F90 index 7d539712ad..d577e2220c 100644 --- a/ice_model.F90 +++ b/ice_model.F90 @@ -218,7 +218,7 @@ end subroutine set_ice_state_fluxes !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! subroutine set_ocean_top_fluxes(Ice, IST, IOF, G, IG) type(ice_data_type), intent(inout) :: Ice - type(ice_state_type), intent(in) :: IST + type(ice_state_type), intent(inout) :: IST type(ice_ocean_flux_type), intent(in) :: IOF type(SIS_hor_grid_type), intent(inout) :: G type(ice_grid_type), intent(in) :: IG @@ -262,7 +262,11 @@ subroutine set_ocean_top_fluxes(Ice, IST, IOF, G, IG) Ice%part_size(i2,j2,k+1) = IST%part_size(i,j,k) enddo ; enddo ; enddo - if (IST%id_slp>0) call post_data(IST%id_slp, Ice%p_surf, IST%diag) + if (IST%id_slp>0) then + call enable_SIS_averaging(real(time_type_to_real(IST%Time_step_slow)), IST%Time, IST%diag) + call post_data(IST%id_slp, Ice%p_surf, IST%diag) + call disable_SIS_averaging(IST%diag) + endif !$OMP parallel do default(none) shared(isc,iec,jsc,jec,Ice,IST,i_off,j_off) & !$OMP private(i2,j2)