Changeset 3893 for trunk/LMDZ.GENERIC/libf/phystd/hydrol.F90

Timestamp:

Aug 13, 2025, 7:53:49 PM (6 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/phystd/hydrol.F90 (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phystd/hydrol.F90

@@ -161 +161 @@
             print*,'How are we supposed to average the ocean'
             print*,'temperature, when there are no oceans?'
-            call abort
+            call abort_physic("hydrol", "Something wrong happened, there are no oceans", 1)
          endif
 
@@ -167 +167 @@
             print*,'You have enabled runoff, but you have no oceans.'
             print*,'Where did you think the water was going to go?'
-            call abort
+            call abort_physic("hydrol", "Something wrong happened, there are no oceans", 1)
          endif
          
@@ -345 +345 @@
          else
 
-            print*,'Surface type not recognised in hydrol.F!'
-            print*,'Exiting...'
-            call abort
+            call abort_physic("hydrol", "Surface type not recognised", 1)
 
          endif