From c20b44de4522cfe6d43aa1c266adc5b14459ec12 Mon Sep 17 00:00:00 2001 From: Pierre Cazenave Date: Fri, 15 Mar 2013 12:14:52 +0000 Subject: [PATCH] Fix the identification of a uniform sponge layer width --- fvcom_prepro/write_FVCOM_sponge.m | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fvcom_prepro/write_FVCOM_sponge.m b/fvcom_prepro/write_FVCOM_sponge.m index 91aa3a4..c5cb354 100644 --- a/fvcom_prepro/write_FVCOM_sponge.m +++ b/fvcom_prepro/write_FVCOM_sponge.m @@ -50,7 +50,7 @@ else Total_Sponge = sum(Mobj.nSpongeNodes(1:Mobj.nSponge)); fprintf(fid,'Sponge Node Number = %d\n',Total_Sponge); for i=1:Mobj.nSponge - if max(size(Mobj.sponge_rad))==1 % if you have a constant sponge radius + if numel(unique(Mobj.sponge_rad)) == 1 % if you have a constant sponge radius for j=1:Mobj.nSpongeNodes(i) fprintf(fid,'%d %f %f \n',Mobj.sponge_nodes(i,j),Mobj.sponge_rad(i),Mobj.sponge_fac(i)); end; -- GitLab