Changeset 3893 for trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/inichim_newstart.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/dynphy_lonlat/phystd/inichim_newstart.F90 (modified) (4 diffs)

trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/inichim_newstart.F90

@@ -94 +94 @@
                 write(*,*) "calchim: error reading line of tracers"
                 write(*,*) "   (first lines of traceur.def) "
-                stop
+                call abort_physic("traceur.def","error reading line of tracers",1)
              ENDIF
            ENDDO
         ENDIF ! if modern or standard traceur.def
       else
-         write(*,*) "calchim: error opening traceur.def in inichim_newstart"
-         stop
+         call abort_physic("inichim_newstart","Unable to open traceur.def",1)
       endif
 
@@ -165 +164 @@
             else
                write(*,*) 'inichim_newstart: error opening ', fil
-               stop
+               call abort_physic("inichim_newstart", "Unable to open chemimal profile file",1)
             endif
             close(90)
@@ -181 +180 @@
                      pqx(ilon,ilat,ilay,iq) = 1-sum(pqx(ilon,ilat,ilay,:))
                      if (pqx(ilon,ilat,ilay,iq)<=0.) then
-                        write(*,*) 'inichim_newstart: vmr tot > 1 not possible'
-                        stop
+                        call abort_physic("inichim_newstart","vmr tot > 1 not possible",1)
                      end if
                   end do
@@ -192 +190 @@
       end do
       if (.not.foundback) then
-         write(*,*) 'inichim_newstart: you need to set a background gas'
-         write(*,*) '            by qx=1. in traceur.def'
-         stop
+         call abort_physic("inichim_newstart","you need to set a background gas by qx=1. in traceur.def",1)
       end if