Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/cosp_optics.F90

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/cosp_optics.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/cosp_optics.F90

@@ -440 +440 @@
           ! Optical thickness of each layer (particles)
           tau_part(1:npoints,1:nlev,i) = tau_part(1:npoints,1:nlev,i) &
-               & * (zheight(1:npoints,1:nlev)-zheight(1:npoints,2:nlev+1) )
+   * (zheight(1:npoints,1:nlev)-zheight(1:npoints,2:nlev+1) )
           ! Optical thickness from TOA to layer k (particles)
           do k=zi,zf,zinc