Changeset 8a65cb0 in flexpart.git for src/convmix.f90

Timestamp:

Mar 2, 2015, 3:11:55 PM (9 years ago)

Author:

Espen Sollum ATMOS <espen@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

1d207bb

Parents:

60403cd

Message:

Added code, makefile for dev branch

File:

• src/convmix.f90 (modified) (5 diffs)

src/convmix.f90

@@ -44 +44 @@
   integer :: jy, kpart, ktop, ngrid,kz
   integer :: igrid(maxpart), ipoint(maxpart), igridn(maxpart,maxnests)
+
   ! itime [s]                 current time
   ! igrid(maxpart)            horizontal grid position of each particle
@@ -132 +133 @@
   end do
 
-  !sumall = 0.
-  !sumconv = 0.
+  ! sumall = 0.
+  ! sumconv = 0.
 
   !*****************************************************************************
@@ -155 +156 @@
     if (igr .eq. -1) goto 50
     ipart = ipoint(kpart)
-  !  sumall = sumall + 1
+  ! sumall = sumall + 1
     if (igr .ne. igrold) then
   ! we are in a new grid column
@@ -228 +229 @@
       if (igr .eq. -1) goto 60
       ipart = ipoint(kpart)
-  !    sumall = sumall + 1
+      ! sumall = sumall + 1
       if (igr .ne. igrold) then
   ! we are in a new grid column
@@ -285 +286 @@
   end do
   !--------------------------------------------------------------------------
-  !write(*,*)'############################################'
-  !write(*,*)'TIME=',
+  ! write(*,*)'############################################'
+  ! write(*,*)'TIME=',&
   !    &  itime
-  !write(*,*)'fraction of particles under convection',
+  ! write(*,*)'fraction of particles under convection',&
   !    &  sumconv/(sumall+0.001)
-  !write(*,*)'total number of particles',
+  ! write(*,*)'total number of particles',&
   !    &  sumall
-  !write(*,*)'number of particles under convection',
+  ! write(*,*)'number of particles under convection',&
   !    &  sumconv
-  !write(*,*)'############################################'
+  ! write(*,*)'############################################'
 
   return