Changeset 3893 for trunk/LMDZ.GENERIC/libf/aeronostd/chemistry_early_earth/read_phototable_early_earth.F90

Timestamp:

Aug 13, 2025, 7:53:49 PM (4 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/aeronostd/chemistry_early_earth/read_phototable_early_earth.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/aeronostd/chemistry_early_earth/read_phototable_early_earth.F90

@@ -64 +64 @@
         write(*,*)'   callphys.def with:'
         write(*,*)'   phototable=filename'
-        stop
+        call abort_physic("read_phototable_early_earth", "cannot open photolysis lookup table",1)
       end if