Changeset 5124


Ignore:
Timestamp:
Jul 25, 2024, 2:11:20 PM (6 weeks ago)
Author:
Laurent Fairhead
Message:

Old typo revealed by cleaning up. Probable minimal effect
AB

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/vlspltqs_loc.F

    r4469 r5124  
    806806         IF (pole_sud) THEN
    807807         
    808            convps  = -SSUM(iim,qbyv(ip1jm-iim,l,iq),iq,1)/apols
     808           convps  = -SSUM(iim,qbyv(ip1jm-iim,l,iq),1)/apols
    809809           convmps = -SSUM(iim,masse_adv_v(ip1jm-iim,l),1)/apols
    810810           DO ij = ip1jm+1,ip1jmp1
Note: See TracChangeset for help on using the changeset viewer.