Changeset 16b61a5 in flexpart.git for src/concoutput.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/concoutput.f90 (modified) (1 diff)

src/concoutput.f90

@@ -626 +626 @@
 !*************************
 
-  ! do ks=1,nspec
-  !   do kp=1,maxpointspec_act
-  !     do i=1,numreceptor
-  !       creceptor(i,ks)=0.
-  !     end do
-  !     do jy=0,numygrid-1
-  !       do ix=0,numxgrid-1
-  !         do l=1,nclassunc
-  !           do nage=1,nageclass
-  !             do kz=1,numzgrid
-  !               gridunc(ix,jy,kz,ks,kp,l,nage)=0.
-  !             end do
-  !           end do
-  !         end do
-  !       end do
-  !     end do
-  !   end do
-  ! end do
+! do ks=1,nspec
+!   do kp=1,maxpointspec_act
+!     do i=1,numreceptor
+!       creceptor(i,ks)=0.
+!     end do
+!     do jy=0,numygrid-1
+!       do ix=0,numxgrid-1
+!         do l=1,nclassunc
+!           do nage=1,nageclass
+!             do kz=1,numzgrid
+!               gridunc(ix,jy,kz,ks,kp,l,nage)=0.
+!             end do
+!           end do
+!         end do
+!       end do
+!     end do
+!   end do
+! end do
   creceptor(:,:)=0.
   gridunc(:,:,:,:,:,:,:)=0.