Changeset 23547f3 in flexpart.git

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

Location:

src

Files:

• cbl.f90 (modified) (2 diffs)
• cmapf_mod.f90 (modified) (1 diff)
• netcdf_output_mod.f90 (modified) (1 diff)
• re_initialize_particle.f90 (modified) (2 diffs)
• readlanduse.f90 (modified) (1 diff)

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
                                

src/cmapf_mod.f90

@@ -232 +232 @@
   !efact = exp(ymerc)
   !cgszll = 2. * strcmp(7) * exp (strcmp(1) * ymerc)
-  !c                     / (efact + 1./efact)
+  !c             / (efact + 1./efact)
   endif
   cgszll = strcmp(7) * cos(radpdg * xlat) * exp(strcmp(1) *ymerc)

src/netcdf_output_mod.f90

@@ -180 +180 @@
      call nf90_err(nf90_put_att(ncid, nf90_global, 'dyout', dyout))
   endif
-!       vertical levels stored in grid structure
+!   vertical levels stored in grid structure
 
   ! COMMAND file settings

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 

src/readlanduse.f90

@@ -30 +30 @@
   ! LANDUSE CATEGORIES:                                                        *
   !                                                                            *
-  ! 1   Urban land                                                             *
-  ! 2   Agricultural land                                                      *
-  ! 3   Range land                                                             *
-  ! 4   Deciduous forest                                                       *
-  ! 5   Coniferous forest                                                      *
-  ! 6   Mixed forest including wetland                                         *
-  ! 7   water, both salt and fresh                                             *
-  ! 8   barren land mostly desert                                              *
-  ! 9   nonforested wetland                                                    *
-  ! 10  mixed agricultural and range land                                      *
-  ! 11  rocky open areas with low growing shrubs                               *
+  ! 1   Urban land                                                             *
+  ! 2   Agricultural land                                  *
+  ! 3   Range land                                         *
+  ! 4   Deciduous forest                                           *
+  ! 5   Coniferous forest                                              *
+  ! 6   Mixed forest including wetland                                         *
+  ! 7   water, both salt and fresh                                             *
+  ! 8   barren land mostly desert                                              *
+  ! 9   nonforested wetland                                                *
+  ! 10  mixed agricultural and range land                              *
+  ! 11  rocky open areas with low growing shrubs                               *
   ! 12  ice                                                                    *
   ! 13  rainforest                                                             *