Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/dustemission_mod.F90

Timestamp:

Jul 20, 2024, 12:00:23 PM (4 months ago)

Author:

abarral

Message:

remove fixed-form ^{\s+& remaining in .f90,.F90}

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/dustemission_mod.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/dustemission_mod.F90

@@ -822 +822 @@
               xk=solspe(ns,npi)/(sqrt(2.*pi)*log(solspe(ns,nsi)))
               xl=((log(sizeclass(i))-log(solspe(ns,nd)))**2) &
-     &              /(2.*(log(solspe(ns,nsi)))**2)
+                /(2.*(log(solspe(ns,nsi)))**2)
               xm=xk*exp(-xl)
               xn=rop*(2./3.)*(sizeclass(i)/2.)