Changeset 1951

Timestamp:

Jun 20, 2016 10:05:12 AM (8 years ago)

Author:

suehring

Message:

Bugfix in example initialization

File:

• palm/trunk/SOURCE/user_init_plant_canopy.f90 (modified) (2 diffs)

palm/trunk/SOURCE/user_init_plant_canopy.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix in example initialization
 ! 
 ! Former revisions:
@@ -95 +95 @@
 !--       Attention: DO-loops have to include the ghost points (nxlg-nxrg, 
 !--       nysg-nyng), because no exchange of ghost point information is intended,
-!--       in order to minimize communication between CPUs
+!--       in order to minimize communication between CPUs.
 !          DO  i = nxlg, nxrg
-!             IF ( i >= INT(nx+1/2) ) THEN
+!             IF ( i >= INT( ( nx+1 ) / 2 ) ) THEN
 !                DO  j = nysg, nyng
 !                   lad_s(:,j,i) = lad(:)