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

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

@@ -160 +160 @@
           else
             write(*,*) "swmain: invalid swrtype value !!"
-            stop
+            call abort_physic("swmain","invalid swrtype",1)
           endif ! of if (swrtype.eq.2)
         endif ! of if (swrtype.eq.1)