From 9e45431c8980c0642857f58bf77c77cc3e9f36ae Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@amuncode.org>
Date: Sun, 21 Apr 2024 11:10:19 -0300
Subject: [PATCH] USER_PROBLEM: Correct a few comments.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
---
 sources/user_problem.F90 | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/sources/user_problem.F90 b/sources/user_problem.F90
index 6028201..1ea0452 100644
--- a/sources/user_problem.F90
+++ b/sources/user_problem.F90
@@ -23,7 +23,7 @@
 !!
 !! module: USER_PROBLEM
 !!
-!!  This module provides subroutines to setup custom problem.
+!!  This module provides subroutines to set up a custom problem.
 !!
 !!*****************************************************************************
 !
@@ -91,14 +91,14 @@ module user_problem
 ! subroutine INITIALIZE_USER_PROBLEM:
 ! ----------------------------------
 !
-!   Subroutine initializes user problem. It could read problem parameters which
-!   are used in all subroutines defining this specific problem.
+!   Subroutine initializes the user problem. It can read problem parameters
+!   that are used in all subroutines defining this specific problem.
 !
 !   Arguments:
 !
 !     problem - the problem name
 !     rcount  - the run count for restarted jobs
-!     verbose - a logical flag turning the information printing;
+!     verbose - a logical flag turning on information printing;
 !     status  - an integer flag for error return value;
 !
 !===============================================================================
@@ -847,7 +847,7 @@ module user_problem
         end do ! k = 1, nn
 #endif /* NDIMS == 3 */
 
-! calculate magnetic field components from vector potential
+! calculate velocity components from stream function
 !
         call curl(dh(1:3), pot(:,:,:,:), qpert(ivx:ivz,:,:,:))
 
@@ -1885,7 +1885,7 @@ module user_problem
 
           if (resistive) then
 
-! diffusion of Bx through
+! diffusion of Bx
 !
             rterms(7) = rterms(7) &
 #if NDIMS == 3
@@ -1896,7 +1896,7 @@ module user_problem
                            pdata%q(ibx,nb:ne,nm:ni,  :  ))) * dxz
 #endif /* NDIMS == 3 */
 
-! diffusion of magnetic energy through the lower Y boundary
+! diffusion of magnetic energy
 !
             rterms(21) = rterms(21) &
 #if NDIMS == 3
@@ -2139,10 +2139,10 @@ module user_problem
 ! -------------------
 !
 !   Function calculates the logarithm of the hyperbolic cosine, which is
-!   the result of the integration of tanh(x). Direct calculation using
-!   Fortran intrinsic subroutines fails for large values of x, therefore
-!   the logarithm of cosh is approximated as |x| + log(1/2) for
-!   |x| > threshold.
+!   the result of integrating tanh(x). Direct calculation using Fortran
+!   intrinsic subroutines fails for large values of x; therefore,
+!   the logarithm of cosh is approximated as |x| + log(1/2) for |x| greater
+!   than a certain threshold.
 !
 !   Arguments:
 !