Changeset 4469 for LMDZ6/trunk/libf/dyn3dmem/vlspltqs_loc.F

Timestamp:

Mar 10, 2023, 5:52:00 PM (14 months ago)

Author:

Laurent Fairhead

Message:

Replaced STOP instructions by calls to abort_gcm for a cleaner exit

File:

• LMDZ6/trunk/libf/dyn3dmem/vlspltqs_loc.F (modified) (1 diff)

LMDZ6/trunk/libf/dyn3dmem/vlspltqs_loc.F

@@ -74 +74 @@
             DO ij=ijb,ije-1
                dxqu(ij)=q(ij+1,l,iq)-q(ij,l,iq)
-c              IF(u_m(ij,l).lt.0.) stop'limx n admet pas les U<0'
-c              sigu(ij)=u_m(ij,l)/masse(ij,l,iq)
             ENDDO
             DO ij=ijb+iip1-1,ije,iip1