[cig-commits] [commit] devel, master: Normalize case of some Fortran keywords. (e504052)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu Nov 6 08:20:19 PST 2014
Repository : https://github.com/geodynamics/specfem3d_globe
On branches: devel,master
Link : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f
>---------------------------------------------------------------
commit e504052c1b5e750a794e972fcd928a4181a5f922
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date: Sun Jun 1 02:37:09 2014 -0400
Normalize case of some Fortran keywords.
There are a couple of files with code I'd rather not touch right now.
>---------------------------------------------------------------
e504052c1b5e750a794e972fcd928a4181a5f922
src/meshfem3D/define_superbrick.f90 | 12 ++++++------
src/specfem3D/noise_tomography.f90 | 34 +++++++++++++++++-----------------
2 files changed, 23 insertions(+), 23 deletions(-)
diff --git a/src/meshfem3D/define_superbrick.f90 b/src/meshfem3D/define_superbrick.f90
index a4c766f..7e81420 100644
--- a/src/meshfem3D/define_superbrick.f90
+++ b/src/meshfem3D/define_superbrick.f90
@@ -1213,8 +1213,8 @@
logical, dimension(NSPEC_DOUBLING_SUPERBRICK,6) :: iboun_sb
integer :: case_num
- SELECT CASE (case_num)
- CASE (1)
+ select case (case_num)
+ case (1)
x_superbrick(1) = 1.d0 / 2.d0
y_superbrick(1) = 1.d0
z_superbrick(1) = 2.d0
@@ -1420,7 +1420,7 @@
iboun_sb(8,3) = .true.
iboun_sb(8,4) = .true.
iboun_sb(8,5) = .true.
- CASE (2)
+ case (2)
x_superbrick(1) = 1.d0 / 2.d0
y_superbrick(1) = 0.d0
z_superbrick(1) = 2.d0
@@ -1626,7 +1626,7 @@
iboun_sb(8,3) = .true.
iboun_sb(8,4) = .true.
iboun_sb(8,5) = .true.
- CASE (3)
+ case (3)
x_superbrick(1) = 1.d0 / 2.d0
y_superbrick(1) = 1.d0
z_superbrick(1) = 2.d0
@@ -1832,7 +1832,7 @@
iboun_sb(8,3) = .true.
iboun_sb(8,4) = .true.
iboun_sb(8,5) = .true.
- CASE (4)
+ case (4)
x_superbrick(1) = 1.d0 / 2.d0
y_superbrick(1) = 0.d0
z_superbrick(1) = 2.d0
@@ -2038,5 +2038,5 @@
iboun_sb(8,3) = .true.
iboun_sb(8,4) = .true.
iboun_sb(8,5) = .true.
- END SELECT
+ end select
end subroutine define_basic_doubling_brick
diff --git a/src/specfem3D/noise_tomography.f90 b/src/specfem3D/noise_tomography.f90
index f845753..cda679c 100644
--- a/src/specfem3D/noise_tomography.f90
+++ b/src/specfem3D/noise_tomography.f90
@@ -106,7 +106,7 @@
status='unknown',action='write',iostat=ios)
if( ios /= 0 ) call exit_MPI(myrank,'error opening output file irec_master_noise')
- WRITE(IOUT_NOISE,*) 'The master receiver is: (RECEIVER ID)', irec_master_noise
+ write(IOUT_NOISE,*) 'The master receiver is: (RECEIVER ID)', irec_master_noise
close(IOUT_NOISE)
endif
@@ -224,21 +224,21 @@
status='unknown',action='write',iostat=ier)
if( ier /= 0 ) call exit_MPI(myrank,'error opening output file NOISE_SIMULATION')
- WRITE(IOUT_NOISE,*) '*******************************************************************************'
- WRITE(IOUT_NOISE,*) '*******************************************************************************'
- WRITE(IOUT_NOISE,*) 'WARNING!!!!!!!!!!!!'
- WRITE(IOUT_NOISE,*) 'You are running simulations using NOISE TOMOGRAPHY techniques.'
- WRITE(IOUT_NOISE,*) 'Please make sure you understand the procedures before you have a try.'
- WRITE(IOUT_NOISE,*) 'Displacements everywhere at the free surface are saved every timestep,'
- WRITE(IOUT_NOISE,*) 'so make sure that LOCAL_TMP_PATH in DATA/Par_file is not global.'
- WRITE(IOUT_NOISE,*) 'Otherwise the disk storage may be a serious issue, as is the speed of I/O.'
- WRITE(IOUT_NOISE,*) 'Also make sure that NO earthquakes are included,'
- WRITE(IOUT_NOISE,*) 'i.e., set moment tensor to be ZERO in CMTSOLUTION'
- WRITE(IOUT_NOISE,*) '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
- WRITE(IOUT_NOISE,*) 'If you just want a regular EARTHQUAKE simulation,'
- WRITE(IOUT_NOISE,*) 'set NOISE_TOMOGRAPHY=0 in DATA/Par_file'
- WRITE(IOUT_NOISE,*) '*******************************************************************************'
- WRITE(IOUT_NOISE,*) '*******************************************************************************'
+ write(IOUT_NOISE,*) '*******************************************************************************'
+ write(IOUT_NOISE,*) '*******************************************************************************'
+ write(IOUT_NOISE,*) 'WARNING!!!!!!!!!!!!'
+ write(IOUT_NOISE,*) 'You are running simulations using NOISE TOMOGRAPHY techniques.'
+ write(IOUT_NOISE,*) 'Please make sure you understand the procedures before you have a try.'
+ write(IOUT_NOISE,*) 'Displacements everywhere at the free surface are saved every timestep,'
+ write(IOUT_NOISE,*) 'so make sure that LOCAL_TMP_PATH in DATA/Par_file is not global.'
+ write(IOUT_NOISE,*) 'Otherwise the disk storage may be a serious issue, as is the speed of I/O.'
+ write(IOUT_NOISE,*) 'Also make sure that NO earthquakes are included,'
+ write(IOUT_NOISE,*) 'i.e., set moment tensor to be ZERO in CMTSOLUTION'
+ write(IOUT_NOISE,*) '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
+ write(IOUT_NOISE,*) 'If you just want a regular EARTHQUAKE simulation,'
+ write(IOUT_NOISE,*) 'set NOISE_TOMOGRAPHY=0 in DATA/Par_file'
+ write(IOUT_NOISE,*) '*******************************************************************************'
+ write(IOUT_NOISE,*) '*******************************************************************************'
close(IOUT_NOISE)
endif
@@ -354,7 +354,7 @@
if (myrank == 0) then
open(unit=IOUT_NOISE,file='OUTPUT_FILES/nu_master',status='unknown',action='write')
- WRITE(IOUT_NOISE,*) 'The direction (NEZ) of selected component of master receiver is', nu_master
+ write(IOUT_NOISE,*) 'The direction (NEZ) of selected component of master receiver is', nu_master
close(IOUT_NOISE)
endif
More information about the CIG-COMMITS
mailing list