[cig-commits] [commit] devel: fixed a typo (6975b16)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Sun Sep 14 15:19:02 PDT 2014
Repository : https://github.com/geodynamics/specfem3d
On branch : devel
Link : https://github.com/geodynamics/specfem3d/compare/f1bbebf172ce63bdb6fa2a4bcb20c86887966c50...6975b167c0c23644798a15f3d588553d7892926f
>---------------------------------------------------------------
commit 6975b167c0c23644798a15f3d588553d7892926f
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date: Sun Sep 14 23:48:48 2014 +0200
fixed a typo
>---------------------------------------------------------------
6975b167c0c23644798a15f3d588553d7892926f
src/shared/check_mesh_resolution.f90 | 26 +++++++++++++-------------
src/specfem3D/read_mesh_databases.F90 | 2 +-
src/specfem3D/read_mesh_databases_adios.F90 | 2 +-
3 files changed, 15 insertions(+), 15 deletions(-)
diff --git a/src/shared/check_mesh_resolution.f90 b/src/shared/check_mesh_resolution.f90
index be6d63b..b661a2d 100644
--- a/src/shared/check_mesh_resolution.f90
+++ b/src/shared/check_mesh_resolution.f90
@@ -68,7 +68,7 @@
!********************************************************************************
! empirical choice for distorted elements to estimate time step and period resolved:
- ! courant number for time step estimate
+ ! Courant number for time step estimate
real(kind=CUSTOM_REAL),parameter :: COURANT_SUGGESTED = 0.5 !! DK DK now that Stacey has been fixed, 0.3 is too low
! number of points per minimum wavelength for minimum period estimate
real(kind=CUSTOM_REAL),parameter :: NPTS_PER_WAVELENGTH = 5
@@ -172,7 +172,7 @@
call flush_IMAIN()
endif
- ! checks courant number & minimum resolved period for each grid cell
+ ! checks Courant number & minimum resolved period for each grid cell
do ispec=1,NSPEC_AB
! determines minimum/maximum velocities within this element
@@ -224,7 +224,7 @@
distance_min_glob = min(distance_min_glob, distance_min)
distance_max_glob = max(distance_max_glob, distance_max)
- ! courant number
+ ! Courant number
! based on minimum GLL point distance and maximum velocity
! i.e. on the maximum ratio of ( velocity / gridsize )
if( DT_PRESENT ) then
@@ -349,7 +349,7 @@
! determines global min/max values from all cpu partitions
if( DT_PRESENT ) then
- ! courant number
+ ! Courant number
cmax = cmax_glob
call max_all_cr(cmax,cmax_glob)
endif
@@ -415,14 +415,14 @@
! user output
if ( myrank == 0 ) then
- write(IMAIN,*) 'saving VTK files for courant number and minimum period'
+ write(IMAIN,*) 'saving VTK files for Courant number and minimum period'
write(IMAIN,*)
call flush_IMAIN()
endif
- ! courant number
+ ! Courant number
if( DT_PRESENT ) then
- filename = trim(prname)//'res_courant_number'
+ filename = trim(prname)//'res_Courant_number'
call write_VTK_data_elem_cr(NSPEC_AB,NGLOB_AB, &
xstore,ystore,zstore,ibool, &
tmp1,filename)
@@ -486,7 +486,7 @@
!********************************************************************************
! empirical choice for distorted elements to estimate time step and period resolved:
- ! courant number for time step estimate
+ ! Courant number for time step estimate
real(kind=CUSTOM_REAL),parameter :: COURANT_SUGGESTED = 0.5 !! DK DK now that Stacey has been fixed, 0.3 is too low
! number of points per minimum wavelength for minimum period estimate
real(kind=CUSTOM_REAL),parameter :: NPTS_PER_WAVELENGTH = 5
@@ -548,7 +548,7 @@
tmp2(:) = 0.0
endif
- ! checks courant number & minimum resolved period for each grid cell
+ ! checks Courant number & minimum resolved period for each grid cell
do ispec=1,NSPEC_AB
! determines minimum/maximum velocities within this element
@@ -608,7 +608,7 @@
distance_min_glob = min( distance_min_glob, distance_min)
distance_max_glob = max( distance_max_glob, distance_max)
- ! courant number
+ ! Courant number
! based on minimum GLL point distance and maximum velocity
! i.e. on the maximum ratio of ( velocity / gridsize )
if( DT_PRESENT ) then
@@ -631,7 +631,7 @@
! determines global min/max values from all cpu partitions
if( DT_PRESENT ) then
- ! courant number
+ ! Courant number
cmax = cmax_glob
call max_all_cr(cmax,cmax_glob)
endif
@@ -798,9 +798,9 @@
! debug: for vtk output
if( SAVE_MESH_FILES ) then
call create_name_database(prname,myrank,LOCAL_PATH)
- ! courant number
+ ! Courant number
if( DT_PRESENT ) then
- filename = trim(prname)//'res_courant_number'
+ filename = trim(prname)//'res_Courant_number'
call write_VTK_data_elem_cr(NSPEC_AB,NGLOB_AB, &
xstore,ystore,zstore,ibool, &
tmp1,filename)
diff --git a/src/specfem3D/read_mesh_databases.F90 b/src/specfem3D/read_mesh_databases.F90
index 97ea4de..f75870b 100644
--- a/src/specfem3D/read_mesh_databases.F90
+++ b/src/specfem3D/read_mesh_databases.F90
@@ -692,7 +692,7 @@
LATITUDE_MIN = min_all
LATITUDE_MAX = max_all
- ! checks courant criteria on mesh
+ ! checks Courant criteria on mesh
if( ELASTIC_SIMULATION ) then
call check_mesh_resolution(myrank,NSPEC_AB,NGLOB_AB, &
ibool,xstore,ystore,zstore, &
diff --git a/src/specfem3D/read_mesh_databases_adios.F90 b/src/specfem3D/read_mesh_databases_adios.F90
index 55aa1eb..61caa34 100644
--- a/src/specfem3D/read_mesh_databases_adios.F90
+++ b/src/specfem3D/read_mesh_databases_adios.F90
@@ -1689,7 +1689,7 @@ subroutine read_mesh_databases_adios()
LATITUDE_MIN = min_all
LATITUDE_MAX = max_all
- ! checks courant criteria on mesh
+ ! checks Courant criteria on mesh
if( ELASTIC_SIMULATION ) then
call check_mesh_resolution(myrank,NSPEC_AB,NGLOB_AB, &
ibool,xstore,ystore,zstore, &
More information about the CIG-COMMITS
mailing list