[cig-commits] r12811 - in seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta: setup src

dkomati1 at geodynamics.org dkomati1 at geodynamics.org
Thu Sep 4 15:24:38 PDT 2008 

Author: dkomati1
Date: 2008-09-04 15:24:38 -0700 (Thu, 04 Sep 2008)
New Revision: 12811

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/setup/constants.h
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/anisotropic_mantle_model.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/compute_element_properties.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/create_regions_mesh.F90
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/get_model.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/meshfem3D.F90
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/sea99_s_model.f90
Log:
turned off SEA99 and AMM models for Gordon Bell using fictitious array sizes because the original is memory consuming


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/setup/constants.h
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/setup/constants.h	2008-09-04 21:23:25 UTC (rev 12810)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/setup/constants.h	2008-09-04 22:24:38 UTC (rev 12811)
@@ -45,6 +45,14 @@
 ! of several MPI buffers by 3 in order to do that
   logical, parameter :: FEWER_MESSAGES_LARGER_BUFFERS = .true.
 
+!! DK DK for Gordon Bell
+! integer, parameter :: SEA99_VS_DIM1 = 100, SEA99_VS_DIM2 = 100, SEA99_VS_DIM3 = 100
+  integer, parameter :: SEA99_VS_DIM1 = 1, SEA99_VS_DIM2 = 1, SEA99_VS_DIM3 = 1
+
+!! DK DK for Gordon Bell
+! integer, parameter :: AMM_V_DIM1 = 14, AMM_V_DIM2 = 34, AMM_V_DIM3 = 37, AMM_V_DIM4 = 73
+  integer, parameter :: AMM_V_DIM1 = 1, AMM_V_DIM2 = 1, AMM_V_DIM3 = 1, AMM_V_DIM4 = 1
+
 !
 ! solver in single or double precision depending on the machine (4 or 8 bytes)
 !
@@ -90,7 +98,8 @@
 
 !---  ETOPO4 4-minute model created by subsampling and smoothing etopo-2
 ! size of topography and bathymetry file
-  integer, parameter :: NX_BATHY = 5400,NY_BATHY = 2700
+!!!!!! DK DK for Gordon Bell  integer, parameter :: NX_BATHY = 5400,NY_BATHY = 2700
+  integer, parameter :: NX_BATHY = 1,NY_BATHY = 1
 ! resolution of topography file in minutes
   integer, parameter :: RESOLUTION_TOPO_FILE = 4
 ! pathname of the topography file

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/anisotropic_mantle_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/anisotropic_mantle_model.f90	2008-09-04 21:23:25 UTC (rev 12810)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/anisotropic_mantle_model.f90	2008-09-04 22:24:38 UTC (rev 12811)
@@ -52,7 +52,7 @@
 ! aniso_mantle_model_variables
   type aniso_mantle_model_variables
     sequence
-    double precision beta(14,34,37,73)
+    double precision beta(AMM_V_DIM1,AMM_V_DIM2,AMM_V_DIM3,AMM_V_DIM4)
     double precision pro(47)
     integer npar1
   end type aniso_mantle_model_variables
@@ -109,7 +109,7 @@
   double precision d1,d2,d3,d4,sd,thickness,dprof1,dprof2,eps,pc1,pc2,pc3,pc4,&
                    dpr1,dpr2,param,scale_GPa,scaleval
   double precision A,C,F,AL,AN,BC,BS,GC,GS,HC,HS,EC,ES,C1p,C1sv,C1sh,C3,S1p,S1sv,S1sh,S3
-  double precision beta(14,34,37,73),pro(47)
+  double precision beta(AMM_V_DIM1,AMM_V_DIM2,AMM_V_DIM3,AMM_V_DIM4),pro(47)
   double precision anispara(14,2,4),elpar(14)
 
   ndepth = npar1
@@ -329,7 +329,7 @@
 ! aniso_mantle_model_variables
   type aniso_mantle_model_variables
     sequence
-    double precision beta(14,34,37,73)
+    double precision beta(AMM_V_DIM1,AMM_V_DIM2,AMM_V_DIM3,AMM_V_DIM4)
     double precision pro(47)
     integer npar1
   end type aniso_mantle_model_variables
@@ -340,7 +340,7 @@
   integer nx,ny,np1,np2,ipar,ipa1,ipa,ilat,ilon,il,idep,nfin,nfi0,nf,nri
   double precision xinf,yinf,pxy,ppp,angle,A,A2L,AL,af
   double precision ra(47),pari(14,47)
-  double precision bet2(14,34,37,73)
+  double precision bet2(AMM_V_DIM1,AMM_V_DIM2,AMM_V_DIM3,AMM_V_DIM4)
   double precision alph(73,37),ph(73,37)
   character(len=150) glob_prem3sm01, globpreman3sm01
 

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/compute_element_properties.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/compute_element_properties.f90	2008-09-04 21:23:25 UTC (rev 12810)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/compute_element_properties.f90	2008-09-04 22:24:38 UTC (rev 12811)
@@ -54,7 +54,7 @@
 ! aniso_mantle_model_variables
   type aniso_mantle_model_variables
     sequence
-    double precision beta(14,34,37,73)
+    double precision beta(AMM_V_DIM1,AMM_V_DIM2,AMM_V_DIM3,AMM_V_DIM4)
     double precision pro(47)
     integer npar1
   end type aniso_mantle_model_variables
@@ -234,7 +234,7 @@
     double precision :: alatmax
     double precision :: alonmin
     double precision :: alonmax
-    double precision :: sea99_vs(100,100,100)
+    double precision :: sea99_vs(SEA99_VS_DIM1,SEA99_VS_DIM2,SEA99_VS_DIM3)
     double precision :: sea99_depth(100)
     integer :: sea99_ndep
     integer :: sea99_nlat

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/create_regions_mesh.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/create_regions_mesh.F90	2008-09-04 21:23:25 UTC (rev 12810)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/create_regions_mesh.F90	2008-09-04 22:24:38 UTC (rev 12811)
@@ -133,7 +133,7 @@
 ! aniso_mantle_model_variables
   type aniso_mantle_model_variables
     sequence
-    double precision beta(14,34,37,73)
+    double precision beta(AMM_V_DIM1,AMM_V_DIM2,AMM_V_DIM3,AMM_V_DIM4)
     double precision pro(47)
     integer npar1
   end type aniso_mantle_model_variables
@@ -313,7 +313,7 @@
     double precision :: alatmax
     double precision :: alonmin
     double precision :: alonmax
-    double precision :: sea99_vs(100,100,100)
+    double precision :: sea99_vs(SEA99_VS_DIM1,SEA99_VS_DIM2,SEA99_VS_DIM3)
     double precision :: sea99_depth(100)
     integer :: sea99_ndep
     integer :: sea99_nlat

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/get_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/get_model.f90	2008-09-04 21:23:25 UTC (rev 12810)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/get_model.f90	2008-09-04 22:24:38 UTC (rev 12811)
@@ -57,7 +57,7 @@
 ! aniso_mantle_model_variables
   type aniso_mantle_model_variables
     sequence
-    double precision beta(14,34,37,73)
+    double precision beta(AMM_V_DIM1,AMM_V_DIM2,AMM_V_DIM3,AMM_V_DIM4)
     double precision pro(47)
     integer npar1
   end type aniso_mantle_model_variables
@@ -239,7 +239,7 @@
     double precision :: alatmax
     double precision :: alonmin
     double precision :: alonmax
-    double precision :: sea99_vs(100,100,100)
+    double precision :: sea99_vs(SEA99_VS_DIM1,SEA99_VS_DIM2,SEA99_VS_DIM3)
     double precision :: sea99_depth(100)
     integer :: sea99_ndep
     integer :: sea99_nlat

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/meshfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/meshfem3D.F90	2008-09-04 21:23:25 UTC (rev 12810)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/meshfem3D.F90	2008-09-04 22:24:38 UTC (rev 12811)
@@ -75,7 +75,7 @@
 ! aniso_mantle_model_variables
   type aniso_mantle_model_variables
     sequence
-    double precision beta(14,34,37,73)
+    double precision beta(AMM_V_DIM1,AMM_V_DIM2,AMM_V_DIM3,AMM_V_DIM4)
     double precision pro(47)
     integer npar1
   end type aniso_mantle_model_variables
@@ -255,7 +255,7 @@
     double precision :: alatmax
     double precision :: alonmin
     double precision :: alonmax
-    double precision :: sea99_vs(100,100,100)
+    double precision :: sea99_vs(SEA99_VS_DIM1,SEA99_VS_DIM2,SEA99_VS_DIM3)
     double precision :: sea99_depth(100)
     integer :: sea99_ndep
     integer :: sea99_nlat

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/sea99_s_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/sea99_s_model.f90	2008-09-04 21:23:25 UTC (rev 12810)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/sea99_s_model.f90	2008-09-04 22:24:38 UTC (rev 12811)
@@ -39,7 +39,7 @@
     double precision :: alatmax
     double precision :: alonmin
     double precision :: alonmax
-    double precision :: sea99_vs(100,100,100)
+    double precision :: sea99_vs(SEA99_VS_DIM1,SEA99_VS_DIM2,SEA99_VS_DIM3)
     double precision :: sea99_depth(100)
     integer :: sea99_ndep
     integer :: sea99_nlat
@@ -96,7 +96,7 @@
      double precision :: alatmax
      double precision :: alonmin
      double precision :: alonmax
-     double precision :: sea99_vs(100,100,100)
+     double precision :: sea99_vs(SEA99_VS_DIM1,SEA99_VS_DIM2,SEA99_VS_DIM3)
      double precision :: sea99_depth(100)
      integer :: sea99_ndep
      integer :: sea99_nlat

More information about the cig-commits mailing list