Cleaned up a bit

src/define_cloud.f90

@@ -70,9 +70,7 @@ if (params%irestart.eq.0) then
    allocate (cl%temp(1), stat=err) ; if (err.ne.0) call stop_run ('Error alloc cl%temp in define_cloud$')
    allocate (cl%press(1), stat=err) ; if (err.ne.0) call stop_run ('Error alloc cl%press in define_cloud$')
    allocate (cl%tag(1), stat=err) ; if (err.ne.0) call stop_run ('Error alloc cl%tag in define_cloud$')
-   if (params%isobc) then
-     zisodisp=0.d0
-   endif
+   if (params%isobc) zisodisp=0.d0
 
 else
    open (19,file=trim(params%restartfile),status='old',form='unformatted')