(#560) - Doc formatting

Author: ccarouge

src/science/canopy/cbl_dryLeaf.F90

@@ -668,16 +668,19 @@ END SUBROUTINE dryLeaf
 
    SUBROUTINE getrex_1d(theta, rex, fws, Fs, thetaS, thetaw, Etrans, gamma, dx, dt, zr)
     !! Root extraction : Haverd et al. 2013
+    !!
     !! **Warning**: This subroutine has diverged from the other `getrex_1d` subroutine
     !! in cable_sli_roots.F90. Considering this subroutine predates the other one,
-    !! it is likely this is an older version and should be updated. Although no,
-    !! tests has been done to quantify the differences.
+    !! it is likely this is an older version and should be updated. No
+    !! tests have been done to quantify the differences.
+    !!
     !! Changes identified as of 27/06/2025:
-    !!  - `theta` and `thetas` arguments instead ot `thetaS` and `S=theta/thetaS`
-    !!  - `rex` is INTENT(OUT) in sli_roots module. Correct for this version as well.
-    !!  - Condition `WHERE (Fs(:) > zero .AND. layer_depth < zr ) ` changed to 
+    !!
+    !! - `theta` and `thetas` arguments instead ot `thetaS` and `S=theta/thetaS`
+    !! - `rex` is INTENT(OUT) in sli_roots module. Correct for this version as well.
+    !! - Condition `WHERE (Fs(:) > zero .AND. layer_depth < zr ) ` changed to 
     !!    `WHERE (Fs(:) > zero` (zr unused in sli_roots)
-    !!  -  `IF (ANY(((rex*dt) > MAX((theta(:)-thetaw(:)),zero)*dx(:)) .AND. (Etrans > zero))) THEN`
+    !! -  `IF (ANY(((rex*dt) > MAX((theta(:)-thetaw(:)),zero)*dx(:)) .AND. (Etrans > zero))) THEN`
     !!    changed to `IF (ANY(((rex*dt) > (theta(:)-thetaw(:))*dx(:)) .AND. ((rex*dt) > zero))) THEN`
 
     USE cable_def_types_mod, ONLY: r_2