Changeset 5081 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/limy.F
- Timestamp:
- Jul 19, 2024, 4:15:44 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/dyn3d_common/limy.F
r2603 r5081 150 150 c enddo 151 151 152 if(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)) .le.0.)152 if(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1))<=0.) 153 153 & then 154 154 do ij=1,iip1 … … 162 162 163 163 if(dyqv(ismax(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)* 164 & dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1) .le.0.)164 & dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)<=0.) 165 165 &then 166 166 do ij=ip1jm+1,ip1jmp1 … … 175 175 c calcul des pentes limitees 176 176 177 do ij=1,ip1jmp1 178 if(dyqv(ij)*dyqv(ij-iip1) .gt.0.) then177 do ij=1,ip1jmp1 ! cf below: should it be ip1jm instead ? 178 if(dyqv(ij)*dyqv(ij-iip1)>0.) then ! /!\ causes Warning: iteration 1056 invokes undefined behavior [-Waggressive-loop-optimizations] in 32x32x39 179 179 dyq(ij)=sign(min(abs(dyq(ij)),dyqmax(ij)),dyq(ij)) 180 180 else
Note: See TracChangeset
for help on using the changeset viewer.