Changeset 07c3e71 in flexpart.git for src/partdep.f90

Timestamp:

Jul 24, 2019, 12:16:51 PM (5 years ago)

Author:

Ignacio Pisso <ip@…>

Branches:

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

Children:

25b4532

Parents:

95a45d3

Message:

check dsigma for dry deposition velocity

File:

• src/partdep.f90 (modified) (2 diffs)

src/partdep.f90

@@ -72 +72 @@
 
   use par_mod
+  use com_mod, only: debug_mode
 
   implicit none
@@ -110 +111 @@
 
         vdep(ic)=vdep(ic)+vdepj*fract(ic,j)
+        
+        !print*, 'partdep:113: ic', ic, 'vdep', vdep
+        !stop
       end do
     endif
+
+
   end do
 
+  !if (debug_mode) then
+  !  print*, 'partdep:122:'
+  !  write(*,*) (vdep(ic), ic=1,nc)
+    !stop
+  !endif
+
 end subroutine partdep