[cig-commits] [commit] master: Fix a warning about anti-alias grids (e557667)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/calypso

On branch  : master
Link       : https://github.com/geodynamics/calypso/compare/bf5dcaf71a4089a4c2f22940f4edea71b9abedd1...9730b061d69d156b271dfe841a55ae371b4e1c03

>---------------------------------------------------------------

commit e5576673db3b322c00fa5cb327aa1c174907efcf
Author: Hiroaki Matsui <h_kemono at mac.com>
Date:   Fri Mar 14 15:31:52 2014 -0700

    Fix a warning about anti-alias grids


>---------------------------------------------------------------

e5576673db3b322c00fa5cb327aa1c174907efcf
 .../UTILS_src/spherical_grid/set_ctl_gen_shell_grids.f90                | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Fortran_libraries/UTILS_src/spherical_grid/set_ctl_gen_shell_grids.f90 b/src/Fortran_libraries/UTILS_src/spherical_grid/set_ctl_gen_shell_grids.f90
index 11cdd9c..199df9b 100644
--- a/src/Fortran_libraries/UTILS_src/spherical_grid/set_ctl_gen_shell_grids.f90
+++ b/src/Fortran_libraries/UTILS_src/spherical_grid/set_ctl_gen_shell_grids.f90
@@ -290,7 +290,7 @@
         stop
       end if
 !
-      if(nidx_global_rtp(2) .le. (l_truncation+1)*3/2) then
+      if(nidx_global_rtp(2) .lt. (l_truncation+1)*3/2) then
         write(*,*) 'Spherical harmonics transform has Ailiasing'
       else if (nidx_global_rtp(2) .lt. (l_truncation+1)) then
         write(*,*) "Grid has less than Nyquist's sampling theorem"