From 5f67b3bc5b1be48187f1bbab77792e57a2bfe731 Mon Sep 17 00:00:00 2001 From: Andreas Holm <60451789+holm10@users.noreply.github.com> Date: Thu, 16 Jan 2025 14:37:15 -0800 Subject: [PATCH] Removes obsolete logngs --- bbb/convert.m | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/bbb/convert.m b/bbb/convert.m index b684b97e..efe8e520 100755 --- a/bbb/convert.m +++ b/bbb/convert.m @@ -261,8 +261,7 @@ c_mpi integer status(MPI_STATUS_SIZE) ne(ix,iy) = ne(ix,iy) + zi(ifld)*ni(ix,iy,ifld) if (isupgon(1).eq.1 .and. zi(ifld).eq.0) then ng(ix,iy,1) = ni(ix,iy,ifld) - logng(ix,iy,1)=log(abs(ng(ix,iy,1))) - if (ineudif .eq. 3) logng(ix,iy,1)=log(ng(ix,iy,1)) + if (ineudif .eq. 3) logng(ix,iy,1)=LOG(ng(ix,iy,1)) else nit(ix,iy) = nit(ix,iy) + ni(ix,iy,ifld) if (isimpon.ge.5 .and. nusp_imp.eq.0) @@ -297,7 +296,6 @@ c_mpi integer status(MPI_STATUS_SIZE) logng(ix,iy,igsp) = yl(idxg(ix,iy,igsp)) ng(ix,iy,igsp) = exp(logng(ix,iy,igsp)) endif - logng(ix,iy,igsp)=log(abs(ng(ix,iy,igsp))) endif if(istgonxy(ix,iy,igsp) .eq. 1) then ntemp = ng(ix,iy,igsp)