Added option for cloud advection at midpoint and for WSMP scaling

src/module_definitions.f90

@@ -163,7 +163,7 @@ module definitions
       type cloud
       integer np,ntag
       double precision,dimension(:),pointer :: x,y,z,x0,y0,z0,strain,lsf0,temp
-      double precision,dimension(:),pointer :: press,e2dp
+      double precision,dimension(:),pointer :: press,e2dp,x0mp,y0mp,z0mp
       integer,dimension(:),pointer::tag,matnum
       end type cloud
 
@@ -245,6 +245,8 @@ module definitions
       logical all_surf_fixed_spinup
       logical fixed_cloud_spinup
       logical materials_on_cloud
+      logical move_cloud_at_midpoint
+      logical wsmp_scaling
       logical,dimension(:),pointer::surface_for_mat_props
       integer nmpi
       integer matrule