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

Timestamp:

Aug 13, 2025, 7:53:49 PM (6 days 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/callsedim.F (modified) (1 diff)

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

@@ -83 +83 @@
         ! add some tests on presence of required tracers/aerosols:
         if (water.and.(igcm_h2o_ice.eq.0)) then
-            write(*,*) "callsedim error: water=.true.",
-     &                 " but igcm_h2o_ice=0"
-          stop
+            call abort_physic("callsedim", 
+     &           "water=.true. but igcm_h2o_ice=0", 1)
         endif
         ! allocate "naerkind" size local arrays (which are also