Changeset 5277 for LMDZ6/trunk/libf/dyn3dmem/massbarxy_loc.f90

Timestamp:

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

Author:

abarral

Message:

Fix: unary operator following arithmetic operator

File:

• LMDZ6/trunk/libf/dyn3dmem/massbarxy_loc.f90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3dmem/massbarxy_loc.f90

@@ -30 +30 @@
     DO ij=ijb,ije-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=ijb+iip1-1,ije+iip1-1,iip1; massebxy(ij,l)=massebxy(ij-iim,l); END DO