Changeset 1324 for palm/trunk/SOURCE/surface_coupler.f90

Timestamp:

Mar 21, 2014 9:13:16 AM (10 years ago)

Author:

suehring

Message:

Bugfixes in ONLY statements

File:

• palm/trunk/SOURCE/surface_coupler.f90 (modified) (3 diffs)

palm/trunk/SOURCE/surface_coupler.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
+! Bugfix: ONLY statement for module pegrid removed 
 ! 
-!
 ! Former revisions:
 ! -----------------
@@ -435 +435 @@
     USE kinds
 
-    USE pegrid,                                                                &
-        ONLY:  comm2d, comm_inter, ierr, MPI_DOUBLE_PRECISION, myid, ngp_a,    &
-               target_id
+    USE pegrid
 
     IMPLICIT NONE
@@ -521 +519 @@
     USE kinds
 
-    USE pegrid,                                                                &
-        ONLY:  comm2d, comm_inter, ierr, MPI_DOUBLE_PRECISION, myid, ngp_o,    &
-               target_id
+    USE pegrid
 
     IMPLICIT NONE