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

Timestamp:

Aug 13, 2025, 7:53:49 PM (5 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/initracer.F90 (modified) (4 diffs)

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

@@ -54 +54 @@
              file = 'traceur.def', iostat=ierr)
         if (ierr /=0) then
-          ! call abort_physic('initracer',&
-          ! 'Problem in opening traceur.def',1)
-          print*,'Problem in opening traceur.def'
-          stop
+          call abort_physic("initracer", "Unable to find traceur.def file",1)
         end if
 !! - Modif. by JVO and YJ for modern planetary traceur.def ---------------
@@ -72 +69 @@
                ! Temporary not implemented solution
                if (nqtot/=nq) then
-      !            call abort_physic('initracer','Different number of '// &
-      ! 'tracers in dynamics and physics not managed yet',1)
-                print*,'!= nbr oftracers in dynamics and physics not managed yet'
-                stop
+                  call abort_physic('initracer','Different number of '// &
+       'tracers in dynamics and physics not managed yet',1)
                endif
                EXIT
              ENDIF
            ELSE ! If pb, or if reached EOF without having found nqtot
-      !        call abort_physic('initracer','Unable to read numbers '// &
-      !  'of tracers in traceur.def',1)
-            print*,"unable to read numbers of tracer in tracer.def"
-            stop
+              call abort_physic('initracer','Unable to read numbers '// &
+        'of tracers in traceur.def',1)
            ENDIF
          ENDDO
@@ -446 +439 @@
           write(*,*)'      ',iq,' ',trim(noms(iq))
         enddo
-!        stop
       else
         write(*,*) "initracer: found all expected tracers, namely:"
@@ -558 +550 @@
        ! verify that we indeed have h2o_vap and h2o_ice tracers
          if (igcm_h2o_vap.eq.0) then
-           write(*,*) "initracer: error !!"
-           write(*,*) "  cannot use water option without ",&
-                     "an h2o_vap tracer !"
-           stop
+           call abort_physic("initracer", "cannot use water option without an h2o_vap tracer", 1)
          endif
          if (igcm_h2o_ice.eq.0) then
-           write(*,*) "initracer: error !!"
-           write(*,*) "  cannot use water option without ",&
-                     "an h2o_ice tracer !"
-           stop
+           call abort_physic("initracer", "cannot use water option without an h2o_ice tracer", 1)
          endif
        endif