Changeset 2311 for trunk/LMDZ.MARS/libf/phymars/vlz_fi.F

Timestamp:

May 6, 2020, 1:46:00 PM (5 years ago)

Author:

emillour

Message:

Mars GCM:
Code tidying: use getin_p() instead of getin() and use "call abort_physic"
instead of "stop" or "call abort".
EM

File:

• trunk/LMDZ.MARS/libf/phymars/vlz_fi.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/vlz_fi.F

@@ -168 +168 @@
 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","weird situation",1)
              end if