better comments in conversion_between_Qp_Qs_and_Qkappa_Qmu_from_Dahle…

…n_Tromp_959_960_in_3D_and_in_2D_plane_strain.f90
geodynamics · Jul 24, 2018 · b49f5c7 · b49f5c7
1 parent a691d9b
commit b49f5c7
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/...n_between_Qp_Qs_and_Qkappa_Qmu_from_Dahlen_Tromp_959_960_in_3D_and_in_2D_plane_strain.f90 b/...n_between_Qp_Qs_and_Qkappa_Qmu_from_Dahlen_Tromp_959_960_in_3D_and_in_2D_plane_strain.f90
@@ -47,8 +47,8 @@ program conversion
     print *
   endif
 
-! enter the cp and cs velocities of the medium here, at the frequency at which you want this conversion to be performed
-  print *,'enter the cp and cs velocities of the medium here, at the frequency at which you want this conversion to be performed:'
+! enter the cp and cs velocities of the medium, at the frequency at which you want this conversion to be performed
+  print *,'enter the cp and cs velocities of the medium, at the frequency at which you want this conversion to be performed:'
   print *,'enter cp:'
   read(*,*) cp
   print *,'enter cs:'
@@ -57,10 +57,10 @@ program conversion
 
   if (iconversion_type == 1) then
 
-! Qs is always the same as Qmu
+! Qmu is always the same as Qs
     Qmu = Qs
 
-! for Qp the formula is more complex
+! for QKappa the formula is more complex
     inverse_of_Qp = 1.d0 / Qp
     inverse_of_Qmu = 1.d0 / Qmu
 
@@ -74,7 +74,7 @@ program conversion
 
   else ! if (iconversion_type == 2) then
 
-! Qs is the same as Qmu
+! Qs is always the same as Qmu
     Qs = Qmu
 
 ! for Qp the formula is more complex