Changeset 23547f3 in flexpart.git for src/re_initialize_particle.f90

Timestamp:

Nov 14, 2019, 4:07:32 PM (4 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:

577bd04

Parents:

f612b17

Message:

remove tabs from files of the form src/*.f90

File:

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

src/re_initialize_particle.f90

@@ -72 +72 @@
 
 
-  if ((sign(1.,wp)*timedir).gt.0) then !updraft   
+  if ((sign(1.,wp)*timedir).gt.0) then !updraft   
 100 wp=(dcas1*sigmawa+wa)
     if (wp.lt.0)  then
@@ -80 +80 @@
     end if
     wp=wp*timedir
-  else if ((sign(1.,wp)*timedir).lt.0) then !downdraft    
+  else if ((sign(1.,wp)*timedir).lt.0) then !downdraft    
 101 wp=(dcas1*sigmawb-wb)
     if (wp.gt.0)  then