diff --git a/src/cosp_stats.F90 b/src/cosp_stats.F90
index 3d6534cc27..19980853a7 100755
--- a/src/cosp_stats.F90
+++ b/src/cosp_stats.F90
@@ -326,7 +326,7 @@ SUBROUTINE COSP_DIAG_WARMRAIN( Npoints, Ncolumns, Nlevels,           & !! in
     integer  :: kctop, kcbtm
     integer  :: icls
     integer  :: iregime
-    real     :: cmxdbz
+    real(wp) :: cmxdbz
     real(wp) :: diagcgt   !! diagnosed cloud geometric thickness [m]
     real(wp) :: diagicod  !! diagnosed in-cloud optical depth
     real(wp) :: cbtmh     !! diagnosed in-cloud optical depth
diff --git a/src/simulator/parasol/parasol.F90 b/src/simulator/parasol/parasol.F90
index cb3326c257..a33607d00a 100644
--- a/src/simulator/parasol/parasol.F90
+++ b/src/simulator/parasol/parasol.F90
@@ -168,8 +168,8 @@ subroutine parasol_column(npoints,nrefl,ncol,land,refl,parasolrefl)
        parasolrefl(:,k) = parasolrefl(:,k) / float(ncol)
        ! if land=1 -> parasolrefl=R_UNDEF
        ! if land=0 -> parasolrefl=parasolrefl
-       parasolrefl(:,k) = parasolrefl(:,k) * MAX(1._wp-land(:),0.0) &
-            + (1._wp - MAX(1._wp-land(:),0.0))*R_UNDEF
+       parasolrefl(:,k) = parasolrefl(:,k) * MAX(1._wp-land(:),0.0_wp) &
+            + (1._wp - MAX(1._wp-land(:),0.0_wp))*R_UNDEF
     enddo
   end subroutine parasol_column