Changeset 16b61a5 in flexpart.git for src/conccalc.f90

Timestamp:

Oct 14, 2016, 3:19:00 PM (8 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:

4c64400

Parents:

861805a

Message:

Reworked the domain-filling option (MPI). Fixed a slow loop which had errors in loop counter (MPI)

File:

• src/conccalc.f90 (modified) (1 diff)

src/conccalc.f90

@@ -126 +126 @@
   !*****************************************************************************
       do ind=indz,indzp
-        rhoprof(ind-indz+1)=p1*rho(ix ,jy ,ind,2) &
+        rhoprof(ind-indz+1)=p1*rho(ix ,jy ,ind,memind(2)) &
              +p2*rho(ixp,jy ,ind,2) &
              +p3*rho(ix ,jyp,ind,2) &