From 8deaecafb41af98cc37bb76bc92f9cbbd91fda1d Mon Sep 17 00:00:00 2001 From: Zhi Liang Date: Fri, 18 Jul 2014 18:24:53 -0400 Subject: [PATCH] Fix compilation issue when compiling with openmp --- src/parameterizations/lateral/MOM_mixed_layer_restrat.F90 | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/parameterizations/lateral/MOM_mixed_layer_restrat.F90 b/src/parameterizations/lateral/MOM_mixed_layer_restrat.F90 index a24a5996db..ff92c51dde 100644 --- a/src/parameterizations/lateral/MOM_mixed_layer_restrat.F90 +++ b/src/parameterizations/lateral/MOM_mixed_layer_restrat.F90 @@ -248,9 +248,10 @@ subroutine mixedlayer_restrat_general(h, uhtr, vhtr, tv, fluxes, dt, G, CS) p0(:) = 0.0 !$OMP parallel default(none) shared(is,ie,js,je,G,htot,Rml_av,tv,p0,h,h_avail, & !$OMP h_neglect,g_Rho0,I4dt,CS,uhml,uhtr,dt,vhml,vhtr, & -!$OMP utimescale_diag,vtimescale_diag,fluxes,dz_neglect) & +!$OMP utimescale_diag,vtimescale_diag,fluxes,dz_neglect, & +!$OMP nz,MLD,uDml_diag,vDml_diag) & !$OMP private(Rho0,h_vel,u_star,absf,mom_mixrate,timescale,uDml, & -!$OMP I2htot,z_topx2,hx2,a,vDml) +!$OMP a,vDml,IhTot,zIHbelowVel,hAtVel,zIHaboveVel) !$OMP do do j=js-1,je+1 do i=is-1,ie+1 @@ -501,7 +502,8 @@ subroutine mixedlayer_restrat_BML(h, uhtr, vhtr, tv, fluxes, dt, G, CS) p0(:) = 0.0 !$OMP parallel default(none) shared(is,ie,js,je,G,htot,Rml_av,tv,p0,h,h_avail, & !$OMP h_neglect,g_Rho0,I4dt,CS,uhml,uhtr,dt,vhml,vhtr, & -!$OMP utimescale_diag,vtimescale_diag,fluxes,dz_neglect) & +!$OMP utimescale_diag,vtimescale_diag,fluxes,dz_neglect, & +!$OMP uDml_diag,vDml_diag) & !$OMP private(Rho0,h_vel,u_star,absf,mom_mixrate,timescale,uDml, & !$OMP I2htot,z_topx2,hx2,a,vDml) !$OMP do