new tests with T_ref = 293.15K (20°C)

seems to be the most common choice for room temperature

PRIVATE

@@ -1 +1 @@
-Subproject commit ebb7f0ce78d11275020af0ba60f929f95b446932
+Subproject commit 5774122bf48d637704bb4afb10b87c34a4dbcaba

src/constants.f90

@@ -9,7 +9,7 @@ module constants
   public
 
   real(pReal), parameter :: &
-    T_ROOM = 298.15_pReal, &                                                                        !< Room temperature in K (25°C)/Standard Ambient Temperaure and Pressure (SATP)
+    T_ROOM = 293.15_pReal, &                                                                        !< Room temperature in K (20°C)
     K_B = 1.380649e-23_pReal, &                                                                     !< Boltzmann constant in J/Kelvin (https://doi.org/10.1351/goldbook)
     N_A = 6.02214076e23_pReal                                                                       !< Avogadro constant in 1/mol (https://doi.org/10.1351/goldbook)
 

src/rotations.f90

@@ -1338,16 +1338,16 @@ pure function cu2ho(cu) result(ho)
       ! transform to sphere grid (inverse Lambert)
       ! [note that there is no need to worry about dividing by zero, since XYZ(3) can not become zero]
       c = sum(T**2)
-      s = Pi * c/(24.0*XYZ(3)**2)
+      s = PI * c/(24.0*XYZ(3)**2)
       c = sqrt(PI) * c / sqrt(24.0_pReal) / XYZ(3)
       q = sqrt( 1.0 - s )
       LamXYZ = [ T(order(2)) * q, T(order(1)) * q, PREF * XYZ(3) - c ]
-    endif special
+    end if special
 
     ! reverse the coordinates back to order according to the original pyramid number
     ho = LamXYZ(p(:,2))
 
-  endif center
+  end if center
 
 end function cu2ho