Changeset 5081 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/massbarxy_loc.F90

Timestamp:

Jul 19, 2024, 4:15:44 PM (2 months ago)

Author:

abarral

Message:

Commit linked to correcting relevant warnings during gfortran compilation

[minor]
Correct remnants of fixed-form "+" in massbarxy.F90
Correct COMMON alignment in clesphys.h, flux_arp.h, cv*param.h, YOECUMF.h, alpale.h
Correct obsolete logical operators
Restrict use of iso_fortran_env in nf95_abort.f90
Remove redundant save in module declarations
Remove <continue> without labels
Fix nonstandard kind selectors

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/massbarxy_loc.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/massbarxy_loc.F90

@@ -27 +27 @@
     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