From cb454e6ded147641d0b8edc46e32dfb836cd5e03 Mon Sep 17 00:00:00 2001 From: Niki Zadeh <Niki.Zadeh@noaa.gov> Date: Thu, 31 Dec 2015 14:00:17 -0500 Subject: [PATCH] Make SIS2 compile with -openmp --- SIS_tracer_advect.F90 | 2 +- ice_model.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/SIS_tracer_advect.F90 b/SIS_tracer_advect.F90 index 25b453dc..647de0a6 100644 --- a/SIS_tracer_advect.F90 +++ b/SIS_tracer_advect.F90 @@ -481,7 +481,7 @@ subroutine advect_scalar(scalar, h_prev, h_end, uhtr, vhtr, dt, G, CS) ! (, OBC) h_neglect = G%H_subroundoff !$OMP parallel default(none) shared(is,ie,js,je,ncat,domore_k,uhr,vhr,uhtr,vhtr,dt,G, & !$OMP hprev,h_prev,h_end,isd,ied,jsd,jed,uh_neglect, & -!$OMP h_neglect,vh_neglect) +!$OMP h_neglect,vh_neglect,domore_u,domore_v) !$OMP do do k=1,ncat domore_k(k)=1 diff --git a/ice_model.F90 b/ice_model.F90 index 473d298b..c8384875 100644 --- a/ice_model.F90 +++ b/ice_model.F90 @@ -2583,7 +2583,7 @@ subroutine SIS1_5L_thermodynamics(Ice, IST, G) !, runoff, calving, & endif !$OMP parallel do default(none) shared(isc,iec,jsc,jec,ncat,NkIce,G,IST,h_snow,h_ice, & -!$OMP dt_slow,snow_to_ice,Idt_slow,bsnk,S_col) & +!$OMP dt_slow,snow_to_ice,Idt_slow,bsnk,S_col,Ice) & !$OMP private(T_col,T_Freeze_surf,evap_from_ocn,h2o_to_ocn, & !$OMP heat_to_ocn,bablt,sn2ic) do j=jsc,jec ; do k=1,ncat ; do i=isc,iec