[cig-commits] r13310 - seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-11-14 09:09:47 -0800 (Fri, 14 Nov 2008)
New Revision: 13310

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/read_compute_parameters.F90
Log:
temporary fix for Laura above NEX_XI = 3264


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/read_compute_parameters.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/read_compute_parameters.F90	2008-11-14 16:33:48 UTC (rev 13309)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/read_compute_parameters.F90	2008-11-14 17:09:47 UTC (rev 13310)
@@ -736,7 +736,7 @@
  NER_OUTER_CORE =          268
  NER_TOP_CENTRAL_CUBE_ICB =           33
 
-      else  if(NEX_MAX*multiplication_factor <= 3264) then
+      else  !! DK DK temporary fix for Laura  if(NEX_MAX*multiplication_factor <= 3264) then
 
 ! simple scaling for the time step
         DT                       = 0.0462d0 * 1248.d0 / dble(NEX_MAX*multiplication_factor)
@@ -754,9 +754,9 @@
  NER_OUTER_CORE =          304
  NER_TOP_CENTRAL_CUBE_ICB =           37
 
-      else
+!! DK DK temporary fix for Laura      else
 
-        stop 'values of NEX_MAX > 3264 not implemented yet in read_compute_parameters'
+!! DK DK temporary fix for Laura        stop 'values of NEX_MAX > 3264 not implemented yet in read_compute_parameters'
 
       endif