Changeset 1951


Ignore:
Timestamp:
Jun 20, 2016 10:05:12 AM (8 years ago)
Author:
suehring
Message:

Bugfix in example initialization

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/user_init_plant_canopy.f90

    r1818 r1951  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix in example initialization
    2222!
    2323! Former revisions:
     
    9595!--       Attention: DO-loops have to include the ghost points (nxlg-nxrg,
    9696!--       nysg-nyng), because no exchange of ghost point information is intended,
    97 !--       in order to minimize communication between CPUs
     97!--       in order to minimize communication between CPUs.
    9898!          DO  i = nxlg, nxrg
    99 !             IF ( i >= INT(nx+1/2) ) THEN
     99!             IF ( i >= INT( ( nx+1 ) / 2 ) ) THEN
    100100!                DO  j = nysg, nyng
    101101!                   lad_s(:,j,i) = lad(:)
Note: See TracChangeset for help on using the changeset viewer.