Changeset 5124
- Timestamp:
- Jul 25, 2024, 2:11:20 PM (6 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/vlspltqs_loc.F
r4469 r5124 806 806 IF (pole_sud) THEN 807 807 808 convps = -SSUM(iim,qbyv(ip1jm-iim,l,iq), iq,1)/apols808 convps = -SSUM(iim,qbyv(ip1jm-iim,l,iq),1)/apols 809 809 convmps = -SSUM(iim,masse_adv_v(ip1jm-iim,l),1)/apols 810 810 DO ij = ip1jm+1,ip1jmp1
Note: See TracChangeset
for help on using the changeset viewer.