MODULE RhoWrt_Module
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   REAL(Kind=WP_Kind), PARAMETER:: rhowrit=0.0d0
END MODULE RhoWrt_Module