Committing where changes to aerocore

exoplasim/plasim/src/aerocore.f90

@@ -581,7 +581,7 @@
 
 
     temp = dt
-    where (temp .le. 1.0) temp = 1.0
+    where(temp .le. 1.0) temp = 1.0
       
 !****6***0*********0*********0*********0*********0*********0**********72
 ! Calculate viscosity of bulk gas, store as mu (3D)
@@ -848,7 +848,7 @@
 
 ! Finally, put in a sink term at the bottom level to avoid infinite build-up of haze particles	  
       mmr(:,:,nl,ic) = mmr(:,:,nl,ic)*10e-3
-      where (mmr .lt. 0.) mmr = 0.0
+      where(mmr .lt. 0.) mmr = 0.0
 
 5000  continue !tracer loop
 
@@ -1055,7 +1055,7 @@
     REAL :: apart ! Aerosol particle radius
     REAL :: rhop ! Density of aerosol particle
     
-    where (mu .le. 0.) mu = 1E-07
+    where(mu .le. 0.) mu = 1E-07
     
     vels = 2*beta*(apart**2)*ga*(rhop - rhog)/(9*mu)
     
@@ -1084,7 +1084,7 @@
     
     gz = rhog*mmr*vterm
 	
-    where (gz .lt. 0.) gz = 0.0
+    where(gz .lt. 0.) gz = 0.0
 	
     
     RETURN