Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmd/yamada4.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/yamada4.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/yamada4.F90

@@ -393 +393 @@
          tkeprov=q2(ig,k)/ydeux
          tkeprov= tkeprov*                           &
-           &  (tkeprov+dt*(shear(ig,k)+max(0.,buoy(ig,k))))/ &
-           &  (tkeprov+dt*((-1.)*min(0.,buoy(ig,k))+dissip(ig,k)+drgpro(ig,k)*tkeprov))
+    (tkeprov+dt*(shear(ig,k)+max(0.,buoy(ig,k))))/ &
+    (tkeprov+dt*((-1.)*min(0.,buoy(ig,k))+dissip(ig,k)+drgpro(ig,k)*tkeprov))
          q2(ig,k)=tkeprov*ydeux
         ENDDO
@@ -430 +430 @@
          tkeprov= tkeprov+dt*(shear(ig,k)+max(0.,buoy(ig,k)))
          tkeprov= tkeprov*                           &
-           &  tkeprov/ &
-           &  (tkeprov+dt*((-1.)*min(0.,buoy(ig,k))+dissip(ig,k)))
+    tkeprov/ &
+    (tkeprov+dt*((-1.)*min(0.,buoy(ig,k))+dissip(ig,k)))
          q2(ig,k)=tkeprov*ydeux
          ! En cas stable, on traite la flotabilite comme la
@@ -453 +453 @@
          winds(ig,k)=sqrt(u(ig,k)**2+v(ig,k)**2)
          tkeprov= (shear(ig,k)+ &
-          & drgpro(ig,k)*(winds(ig,k))**3)*tkeprov/disseff*(1.-tkeexp)+tkeprov*tkeexp
+   drgpro(ig,k)*(winds(ig,k))**3)*tkeprov/disseff*(1.-tkeexp)+tkeprov*tkeexp
          q2(ig,k)=tkeprov*ydeux
          ! En cas stable, on traite la flotabilite comme la