Changeset 3642 for trunk/LMDZ.PLUTO/libf/phypluto/condense_n2.F90

Timestamp:

Feb 24, 2025, 1:48:19 PM (4 months ago)

Author:

afalco

Message:

Pluto: minor fixes & better message when stumbling onto error.
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/condense_n2.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/phypluto/condense_n2.F90

@@ -820 +820 @@
             w(l+1) = Mtot
             qm(l+1) = Mqtot / Mtot
-            write(*,*) 'top layer is disapearing !'
-            stop
+            print*,"m", m
+            print*,"Mtot", Mtot
+            print*,"Mqtot", Mqtot
+            call abort_physic("condense_n2","top layer is disapearing !",1)
          end if
       else      ! if(w(l+1).lt.0)