Changeset 5277


Ignore:
Timestamp:
Oct 25, 2024, 6:17:44 PM (4 hours ago)
Author:
abarral
Message:

Fix: unary operator following arithmetic operator

Location:
LMDZ6/trunk/libf
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d_common/massbarxy.f90

    r5272 r5277  
    2424    DO ij=1,ip1jm-1
    2525      massebxy(ij,l)=masse(ij     ,l)*alpha2(ij     ) + &
    26      +               masse(ij+1   ,l)*alpha3(ij+1   ) + &
    27      +               masse(ij+iip1,l)*alpha1(ij+iip1) + &
    28      +               masse(ij+iip2,l)*alpha4(ij+iip2)
     26                    masse(ij+1   ,l)*alpha3(ij+1   ) + &
     27                    masse(ij+iip1,l)*alpha1(ij+iip1) + &
     28                    masse(ij+iip2,l)*alpha4(ij+iip2)
    2929    END DO
    3030    DO ij=iip1,ip1jm,iip1; massebxy(ij,l)=massebxy(ij-iim,l); END DO

  • LMDZ6/trunk/libf/dyn3dmem/massbarxy_loc.f90

    r5272 r5277  
    3030    DO ij=ijb,ije-1
    3131      massebxy(ij,l)=masse(ij     ,l)*alpha2(ij     ) + &
    32      +               masse(ij+1   ,l)*alpha3(ij+1   ) + &
    33      +               masse(ij+iip1,l)*alpha1(ij+iip1) + &
    34      +               masse(ij+iip2,l)*alpha4(ij+iip2)
     32                    masse(ij+1   ,l)*alpha3(ij+1   ) + &
     33                    masse(ij+iip1,l)*alpha1(ij+iip1) + &
     34                    masse(ij+iip2,l)*alpha4(ij+iip2)
    3535    END DO
    3636    DO ij=ijb+iip1-1,ije+iip1-1,iip1; massebxy(ij,l)=massebxy(ij-iim,l); END DO

  • LMDZ6/trunk/libf/phylmd/inlandsis/sisvat_qso.f90

    r5246 r5277  
    539539            + max(zero,SatRat)       !
    540540      RuofSV(ikl,3)   = RuofSV(ikl,3) + &
    541             + max(zero,SatRat)
     541            max(zero,SatRat)
    542542      eta_SV(ikl,isl) = max(epsi & !
    543543  ! #ED.                         +etamSV(isotSV(ikl))!
Note: See TracChangeset for help on using the changeset viewer.