formatting space alignment

NGEET · Nov 13, 2024 · 1365dee · 1365dee
1 parent 2202c46
commit 1365dee
Showing 1 changed file with 29 additions and 31 deletions.
diff --git a/biogeochem/FatesAllometryMod.F90 b/biogeochem/FatesAllometryMod.F90
@@ -1416,44 +1416,42 @@ end subroutine bsap_ltarg_slatop
 
 
 
-! ============================================================================
+  ! ============================================================================
   ! Area of sap wood cross-section specifically for grass PFT
   ! ============================================================================
 
   subroutine SapwoodAreaGrass(d,sapw_area)
-  !---------------------------------------------------------------------------
-  ! This function calculates sapwood cross-sectional area specifically for grass
-  ! PFT using basal diameter (cm) of the entire plant as size reference, 
-  ! assume sapwood area of the entire plant as the sum of the cross-sectional area 
-  ! of each grass tiller 
-  ! such that water transport through sapwood can be seen as a collective behavior 
-  ! of all tillers
-  ! No reference. Might update this to more theoretical-based approach once there
-  ! is empirical evidence
-  !----------------
-  ! Input arguments
-  !----------------
-  ! d                -- basal diameter               [cm]
-
-  !----------------
-  ! Output variables
-  !----------------
-  ! sapw_area        -- sapwood cross-sectional area   [m2]
-
-  !---Arguments
-  real(r8), intent(in)              :: d             ! plant basal diameter               [    cm]
-  real(r8), intent(out)             :: sapw_area     ! sapwood cross-sectional area       [    m2]
-
-  ! Calculate sapwood cross-sectional area assuming sapwood geometry as a 
-  ! cylinder and basal diameter is the diameter of the cylinder 
-  sapw_area = (pi_const * ((d / 2.0_r8)**2.0_r8)) / cm2_per_m2
 
-  return
-
-  end subroutine SapwoodAreaGrass
+     !---------------------------------------------------------------------------
+     ! This function calculates sapwood cross-sectional area specifically for grass
+     ! PFT using basal diameter (cm) of the entire plant as size reference,
+     ! assume sapwood area of the entire plant as the sum of the cross-sectional area
+     ! of each grass tiller
+     ! such that water transport through sapwood can be seen as a collective behavior
+     ! of all tillers
+     ! No reference. Might update this to more theoretical-based approach once there
+     ! is empirical evidence
+     !----------------
+     ! Input arguments
+     !----------------
+     ! d                -- basal diameter               [cm]
+
+     !----------------
+     ! Output variables
+     !----------------
+     ! sapw_area        -- sapwood cross-sectional area   [m2]
+
+     !---Arguments
+     real(r8), intent(in)              :: d             ! plant basal diameter               [    cm]
+     real(r8), intent(out)             :: sapw_area     ! sapwood cross-sectional area       [    m2]
+
+     ! Calculate sapwood cross-sectional area assuming sapwood geometry as a
+     ! cylinder and basal diameter is the diameter of the cylinder
+     sapw_area = (pi_const * ((d / 2.0_r8)**2.0_r8)) / cm2_per_m2
 
-
+     return
 
+  end subroutine SapwoodAreaGrass
 
   ! ============================================================================
   ! Specific storage relationships