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

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

@@ -3 +3 @@
 
       SUBROUTINE thermcell_height(ngrid,nlay,lalim,lmin,linter,lcong,lintercong,lmix,  &
-     &           zw2,zlev,lmax,zmax,zmax0,zmix,wmax,zcong)
+             zw2,zlev,lmax,zmax,zmax0,zmix,wmax,zcong)
       IMPLICIT NONE
 
@@ -105 +105 @@
 ! calcul de zlevinter
           zlevinter(ig)=(zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))*  &
-     &    linter(ig)+zlev(ig,lmax(ig))-lmax(ig)*(zlev(ig,lmax(ig)+1)  &
-     &    -zlev(ig,lmax(ig)))
+      linter(ig)+zlev(ig,lmax(ig))-lmax(ig)*(zlev(ig,lmax(ig)+1)  &
+      -zlev(ig,lmax(ig)))
 !pour le cas ou on prend tjs lmin=1
 !       zmax(ig)=max(zmax(ig),zlevinter(ig)-zlev(ig,lmin(ig)))
@@ -117 +117 @@
 ! calcul de zlevintercong
          zlevintercong(ig)=(zlev(ig,lcong(ig)+1)-zlev(ig,lcong(ig)))*  &
-     &    lintercong(ig)+zlev(ig,lcong(ig))-lcong(ig)*(zlev(ig,lcong(ig)+1)  &
-     &    -zlev(ig,lcong(ig)))
+      lintercong(ig)+zlev(ig,lcong(ig))-lcong(ig)*(zlev(ig,lcong(ig)+1)  &
+      -zlev(ig,lcong(ig)))
          zcong(ig)=zlevintercong(ig)-zlev(ig,1)
 !         print*,"calcul zcong",lcong(ig),lintercong(ig),zlevintercong(ig),zcong(ig)
@@ -131 +131 @@
 ! test 
               if (((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))  &
-     &        *((zlev(ig,lmix(ig)))-(zlev(ig,lmix(ig)+1)))  &
-     &        -(zw2(ig,lmix(ig))-zw2(ig,lmix(ig)+1))  &
-     &        *((zlev(ig,lmix(ig)-1))-(zlev(ig,lmix(ig)))))>1e-10)  &
-     &        then
+          *((zlev(ig,lmix(ig)))-(zlev(ig,lmix(ig)+1)))  &
+          -(zw2(ig,lmix(ig))-zw2(ig,lmix(ig)+1))  &
+          *((zlev(ig,lmix(ig)-1))-(zlev(ig,lmix(ig)))))>1e-10)  &
+          then
 !             
             zmix(ig)=((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))  &
-     &        *((zlev(ig,lmix(ig)))**2-(zlev(ig,lmix(ig)+1))**2)  &
-     &        -(zw2(ig,lmix(ig))-zw2(ig,lmix(ig)+1))  &
-     &        *((zlev(ig,lmix(ig)-1))**2-(zlev(ig,lmix(ig)))**2))  &
-     &        /(2.*((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))  &
-     &        *((zlev(ig,lmix(ig)))-(zlev(ig,lmix(ig)+1)))  &
-     &        -(zw2(ig,lmix(ig))-zw2(ig,lmix(ig)+1))  &
-     &        *((zlev(ig,lmix(ig)-1))-(zlev(ig,lmix(ig))))))
+          *((zlev(ig,lmix(ig)))**2-(zlev(ig,lmix(ig)+1))**2)  &
+          -(zw2(ig,lmix(ig))-zw2(ig,lmix(ig)+1))  &
+          *((zlev(ig,lmix(ig)-1))**2-(zlev(ig,lmix(ig)))**2))  &
+          /(2.*((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))  &
+          *((zlev(ig,lmix(ig)))-(zlev(ig,lmix(ig)+1)))  &
+          -(zw2(ig,lmix(ig))-zw2(ig,lmix(ig)+1))  &
+          *((zlev(ig,lmix(ig)-1))-(zlev(ig,lmix(ig))))))
               else
               zmix(ig)=zlev(ig,lmix(ig))
@@ -162 +162 @@
          do l=1,nlay
             if (zmix(ig)>=zlev(ig,l).and.  &
-     &          zmix(ig)<zlev(ig,l+1)) then
+            zmix(ig)<zlev(ig,l+1)) then
               lmix(ig)=l
              endif