diff --git a/base/MAPL_CubedSphereGridFactory.F90 b/base/MAPL_CubedSphereGridFactory.F90
index abd24727098d..c9b7853303b9 100644
--- a/base/MAPL_CubedSphereGridFactory.F90
+++ b/base/MAPL_CubedSphereGridFactory.F90
@@ -640,8 +640,8 @@ subroutine check_and_fill_consistency(this, unusable, rc)
          _ASSERT(this%target_lat >= -90.0, 'Latitude should be greater than -90.0 degrees')
          _ASSERT(this%target_lat <= 90, 'Latitude should be less than 90.0 degrees')
          this%stretched_cube = .true.
-         this%target_lon=this%target_lon*pi/180.d0
-         this%target_lat=this%target_lat*pi/180.d0
+         this%target_lon=this%target_lon*MAPL_PI/180.0
+         this%target_lat=this%target_lat*MAPL_PI/180.0
       end if
 
       ! Check decomposition/bounds