Update cosp_stats.F90

Author: alejandrobodas

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