[cig-commits] [commit] devel: fixed a typo (6975b16)

[cig_noreply at geodynamics.org]

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, &