Changeset 3893 for trunk/LMDZ.GENERIC/libf/aeronostd/photolysis_online.F

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/photolysis_online.F (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/aeronostd/photolysis_online.F

@@ -1139 +1139 @@
 !_______________________________________________________________________
 
-      IF (b(1) .EQ. 0.) STOP 1001
+      IF (b(1).EQ.0.) call abort_physic("photolysis_online","b(1)=0",1)
       bet   = b(1)
       u(1) = r(1)/bet
@@ -1145 +1145 @@
          gam(j) = c(j - 1)/bet
          bet = b(j) - a(j)*gam(j)
-         IF (bet .EQ. 0.) STOP 2002 
+         IF (bet.EQ.0.) call abort_physic("photolysis_online","bet=0",1)
          u(j) = (r(j) - a(j)*u(j - 1))/bet
    11 CONTINUE
@@ -1288 +1288 @@
         else
 
-          print*,'Surface type not recognised in photolysis_online.F!'
-          print*,'Exiting...'
-          call abort
+          call abort_physic("photolysis_online", 
+     &         "Surface type not recognised",1)
 
         endif