Move latbaset_max_lat() to test_Latbaset.

ESCOMP · Nov 12, 2023 · 239aa87 · 239aa87
1 parent 35478a3
commit 239aa87
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 10 deletions.
diff --git a/src/biogeochem/CropType.F90 b/src/biogeochem/CropType.F90
@@ -24,7 +24,6 @@ module CropType
   !
   ! !PUBLIC DATA TYPES:
   public :: latbaset
-  public :: latbaset_max_lat
   !
 
   ! Possible values of cphase
@@ -971,7 +970,7 @@ real(r8) function latbaset(baset, latdeg, baset_latvary_intercept, baset_latvary
     real(r8), intent(in) :: baset_latvary_slope
 
     ! Was originally
-    !     maxlat = latbaset_max_lat(baset_latvary_intercept, baset_latvary_slope)
+    !     maxlat = baset_latvary_intercept / baset_latvary_slope
     !     if (abs(latdeg) > maxlat) then
     !         latbaset = baset
     !     else
@@ -983,11 +982,4 @@ real(r8) function latbaset(baset, latdeg, baset_latvary_intercept, baset_latvary
 
   end function latbaset
 
-  real(r8) function latbaset_max_lat(intercept, slope)
-    real(r8), intent(in) :: intercept
-    real(r8), intent(in) :: slope
-
-    latbaset_max_lat = intercept / slope
-  end function latbaset_max_lat
-
 end module CropType
diff --git a/src/biogeochem/test/Latbaset_test/test_Latbaset.pf b/src/biogeochem/test/Latbaset_test/test_Latbaset.pf
@@ -7,7 +7,7 @@ module test_Latbaset
   use unittestSubgridMod
   use unittestSimpleSubgridSetupsMod
   use unittestFilterBuilderMod
-  use CropType, only : latbaset, latbaset_max_lat
+  use CropType, only : latbaset
 
   implicit none
 
@@ -36,6 +36,13 @@ contains
     call unittest_subgrid_teardown()
   end subroutine tearDown
 
+  real(r8) function latbaset_max_lat(intercept, slope)
+    real(r8), intent(in) :: intercept
+    real(r8), intent(in) :: slope
+
+    latbaset_max_lat = intercept / slope
+  end function latbaset_max_lat
+
   @Test
   subroutine too_far_north(this)
     class(TestLatbaset), intent(inout) :: this