Changeset 2311 for trunk/LMDZ.MARS/libf/phymars/tabfi.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/tabfi.F (modified) (1 diff)

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

@@ -267 +267 @@
         write(*,*) "tabfi: Error modifying tab_control should",
      &             " only happen in serial mode (eg: by newstart)"
-        stop
+        call abort_physic(modname,
+     &       "tab_control modification not possible in parallel",1)
       endif
 c-----------------------------------------------------------------------