Changeset 5277 for LMDZ6/trunk/libf/dyn3d_common

Timestamp:

Oct 25, 2024, 6:17:44 PM (7 days ago)

Author:

abarral

Message:

Fix: unary operator following arithmetic operator

File:

• LMDZ6/trunk/libf/dyn3d_common/massbarxy.f90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3d_common/massbarxy.f90

@@ -24 +24 @@
     DO ij=1,ip1jm-1
       massebxy(ij,l)=masse(ij     ,l)*alpha2(ij     ) + &
-     +               masse(ij+1   ,l)*alpha3(ij+1   ) + &
-     +               masse(ij+iip1,l)*alpha1(ij+iip1) + &
-     +               masse(ij+iip2,l)*alpha4(ij+iip2)
+                    masse(ij+1   ,l)*alpha3(ij+1   ) + &
+                    masse(ij+iip1,l)*alpha1(ij+iip1) + &
+                    masse(ij+iip2,l)*alpha4(ij+iip2)
     END DO
     DO ij=iip1,ip1jm,iip1; massebxy(ij,l)=massebxy(ij-iim,l); END DO