Changeset 23547f3 in flexpart.git for src/cbl.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/cbl.f90 (modified) (2 diffs)

src/cbl.f90

@@ -109 +109 @@
     dradw2=0.5*w2**(-0.5)*dw2
     !costluar4=0.66667  ! costante da LHH
-    fluarw=costluar4*(cuberoot(skew))   !skew**(1./3.)
+    fluarw=costluar4*(cuberoot(skew))   !skew**(1./3.)
     fluarw2=fluarw*fluarw
     
@@ -187 +187 @@
            pa=(usurad2p*(1./sigmawa))*(exp(-(0.5*((deltawa/sigmawa)**2.))))
            pb=(usurad2p*(1./sigmawb))*(exp(-(0.5*((deltawb/sigmawb)**2.))))
-                                    
+                                    
            ptot=dens*aluarw*pa+dens*bluarw*pb