Changeset b5127f9 in flexpart.git for src/mean_mod.f90


Ignore:
Timestamp:
Aug 4, 2017, 2:18:03 PM (7 years ago)
Author:
Espen Sollum ATMOS <eso@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
Children:
61e07ba, 1d072c0
Parents:
5184a7c
Message:

Fixed an inconsistency (serial vs parallel) with domain-filling option

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/mean_mod.f90

    r4c64400 rb5127f9  
    180180    xq=0._sp
    181181    do i=1,number
    182       xl=xl+x_dp(i)
    183       xq=xq+x_dp(i)*x_dp(i)
     182      xl=xl+real(x_dp(i),kind=sp)
     183      xq=xq+real(x_dp(i),kind=sp)*real(x_dp(i),kind=sp)
    184184    end do
    185185
     
    237237    end do
    238238
    239     xm=xl/real(number,kind=sp)
     239    xm=real(xl,kind=sp)/real(number,kind=sp)
    240240
    241241    xaux=xq-xl*xl/real(number,kind=dp)
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG