[cig-commits] r4503 - seismo/1D/syndat/trunk

[barmin at geodynamics.org]

Author: barmin
Date: 2006-09-08 14:40:31 -0700 (Fri, 08 Sep 2006)
New Revision: 4503

Modified:
   seismo/1D/syndat/trunk/green.f
Log:
Fixed maximum l in green.f module.


Modified: seismo/1D/syndat/trunk/green.f
===================================================================
--- seismo/1D/syndat/trunk/green.f	2006-09-08 20:59:16 UTC (rev 4502)
+++ seismo/1D/syndat/trunk/green.f	2006-09-08 21:40:31 UTC (rev 4503)
@@ -63,8 +63,8 @@
 
       call source(fmin,fmax,lmax,nmodes,nmodet)
 
-      if(lmax.lt.249) goto 5
-      print*,'max l =',lmax,' must be .le.249'
+      if(lmax.lt.meig) goto 5
+      print*,'max l =',lmax,' must be .le.',meig
       goto 99
     5 print 105,d0,th,ph
   105 format('source depth =',f5.0,' km, colat. and long. =',2f7.2)