From 8379d940add371bb0243152b339a14897afdeef2 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Mon, 21 Dec 2009 15:46:33 +0000
Subject: [PATCH] Cleaned up a bit
---
src/define_cloud.f90 | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/src/define_cloud.f90 b/src/define_cloud.f90
index 67081bf6..8d550ad0 100644
--- a/src/define_cloud.f90
+++ b/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')
--
GitLab