[cig-commits] r6477 - geodyn/3D/MoSST/trunk/mosst-dynamo

[weimi at geodynamics.org]

Author: weimi
Date: 2007-03-30 16:59:11 -0700 (Fri, 30 Mar 2007)
New Revision: 6477

Modified:
   geodyn/3D/MoSST/trunk/mosst-dynamo/mod_params.f
Log:
minor parameter initialization change (makes big difference).

Modified: geodyn/3D/MoSST/trunk/mosst-dynamo/mod_params.f
===================================================================
--- geodyn/3D/MoSST/trunk/mosst-dynamo/mod_params.f	2007-03-30 23:49:16 UTC (rev 6476)
+++ geodyn/3D/MoSST/trunk/mosst-dynamo/mod_params.f	2007-03-30 23:59:11 UTC (rev 6477)
@@ -60,7 +60,7 @@
      &		      nmx3=2*nmxo1,nmx4=2*nmxi1,nmx5=2*nmxm1,
      &		      nmx6=nmx3+nmx4+nmx5)
     	   parameter (Lmaxa=3*Lmax/2,mmaxa=3*mmax/2)
-    	   parameter (ntmax=3*Lmax/2+1,npmax=3*mmax+1)
+    	   parameter (ntmax=3*Lmax/2+1,npmax=3*mmax)
     	   parameter (nmax_v=2*(nmaxo-1)/3)
 cndi	   parameter (Lmaxa=Lmax+4,mmaxa=mmax+4)
 cndi	   parameter (ntmax=Lmaxa+1,npmax=2*mmaxa+1)