Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust

Timestamp:

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

Author:

abarral

Message:

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

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust

Files:

• dustemission_mod.F90 (modified) (1 diff)
• read_surface.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.)

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

@@ -124 +124 @@
            if (isinversed) then
                         call gr_dyn_fi(1, nbp_lon+1, nbp_lat, klon_glo, &
-     & tmp_dyn_invers_glo, tmp_fi_glo)
+   tmp_dyn_invers_glo, tmp_fi_glo)
 !              call gr_dyn_fi(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
 !              call gr_dyn_fi_p(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
            else      
                         call gr_dyn_fi(1, nbp_lon+1, nbp_lat, klon_glo, &
-     &   tmp_dyn_glo, tmp_fi_glo)
+     tmp_dyn_glo, tmp_fi_glo)
 !              call gr_dyn_fi(1, iip1, jjp1, klon, tmp_dyn, tmp_fi)
 !              call gr_dyn_fi_p(1, iip1, jjp1, klon, tmp_dyn, tmp_fi)