Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_lscp.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/lmdz_lscp.F90 (modified) (1 diff)

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

@@ -1010 +1010 @@
             ! temperature update due to phase change
             zt(i) = zt(i) + (1.-zfice(i))*zcond(i) & 
-            &     * RLVTT/RCPD/(1.0+RVTMP2*(zq(i)+zmqc(i)+zcond(i))) &
+       * RLVTT/RCPD/(1.0+RVTMP2*(zq(i)+zmqc(i)+zcond(i))) &
                   +zfice(i)*zcond(i) * RLSTT/RCPD/(1.0+RVTMP2*(zq(i)+zmqc(i)+zcond(i)))
         ENDDO