Changeset 3893 for trunk/LMDZ.GENERIC/libf/phystd/vlz_fi.F

Timestamp:

Aug 13, 2025, 7:53:49 PM (3 months ago)

Author:

gmilcareck

Message:

Remove all "call abort" and "stop" statement in LMDZ.GENERIC and replacing them by call abort_physic().

File:

• trunk/LMDZ.GENERIC/libf/phystd/vlz_fi.F (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/vlz_fi.F

@@ -164 +164 @@
              else
 c               wq(ij,l+1)= (MQtot + (-w(ij,l+1)-Mtot)*qm(ij,1))
-                write(*,*) 'a rather weird situation in vlz_fi !'
-                stop
+                call abort_physic("vlz_fi", 
+     &               "Something wrong happened in iteration", 1)
              end if
           endif