Changeset 2120 for trunk/LMDZ.MARS/libf/phymars/vlz_fi.F

Timestamp:

Apr 3, 2019, 11:15:05 AM (6 years ago)

Author:

emillour

Message:

Mars GCM:
Fix a line slightly too long for fixed form Fortran.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/vlz_fi.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/vlz_fi.F

@@ -187 +187 @@
 
 c            it cannot entrain more than available mass !
-            if ( (wq(ij,l+1)-wq(ij,l)) .lt. -(masse(ij,l)*q(ij,l)) ) then
+            if ((wq(ij,l+1)-wq(ij,l)) .lt. -(masse(ij,l)*q(ij,l))) then
               wq(ij,l+1) = wq(ij,l)-masse(ij,l)*q(ij,l)
             end if