Changeset 3893 for trunk/LMDZ.GENERIC/libf/aeronostd/chemistry_early_earth/photochemistry_asis_early_earth.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/aeronostd/chemistry_early_earth/photochemistry_asis_early_earth.F90 (modified) (4 diffs)

trunk/LMDZ.GENERIC/libf/aeronostd/chemistry_early_earth/photochemistry_asis_early_earth.F90

@@ -275 +275 @@
 #else
 #   write(*,*) "photochemistry_asis error, missing LAPACK routine dgesv"
-#   stop
+#   call abort_physic("photochemistry_early_earth", "missing LAPACK routine dgesv",1)
 #endif
 
@@ -399 +399 @@
       call dgesv(nesp,1,mat,nesp,indx,cnew,nesp,code)
 #else
-   write(*,*) "photochemistry_asis error, missing LAPACK routine dgesv"
-   stop
+   call abort_physic("photochemistry_early_earth", "missing LAPACK routine dgesv",1)
 #endif
 
@@ -3320 +3319 @@
    print*, 'nb_reaction_4_max = ', nb_reaction_4_max
    print*, 'nb_reaction_3_max = ', nb_reaction_3_max
-   stop
+   call abort_physic("photochemistry_early_earth", "wrong dimensions in indice",1)
 end if  
 
@@ -3395 +3394 @@
 
          if (igcm_co2 == 0) then
-            write(*,*) "gcmtochim: Error; no CO2 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no CO2 tracer", 1)
          endif
          if (igcm_co == 0) then
-            write(*,*) "gcmtochim: Error; no CO tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no CO tracer", 1)
          end if
          if (igcm_o == 0) then
-            write(*,*) "gcmtochim: Error; no O tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no O tracer", 1)
          end if
          if (igcm_o1d == 0) then
-            write(*,*) "gcmtochim: Error; no O1D tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no O1D tracer", 1)
          end if
          if (igcm_o2 == 0) then
-            write(*,*) "gcmtochim: Error; no O2 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no O2 tracer", 1)
          end if
          if (igcm_o3 == 0) then
-            write(*,*) "gcmtochim: Error; no O3 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no O3 tracer", 1)
          end if
          if (igcm_h == 0) then
-            write(*,*) "gcmtochim: Error; no H tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no H tracer", 1)
          end if
          if (igcm_h2 == 0) then
-            write(*,*) "gcmtochim: Error; no H2 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no H2 tracer", 1)
          end if
          if (igcm_oh == 0) then
-            write(*,*) "gcmtochim: Error; no OH tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no OH tracer", 1)
          end if
          if (igcm_ho2 == 0) then
-            write(*,*) "gcmtochim: Error; no HO2 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no HO2 tracer", 1)
          end if
          if (igcm_h2o2 == 0) then
-            write(*,*) "gcmtochim: Error; no H2O2 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no H2O2 tracer", 1)
          end if
          if (igcm_n == 0) then
-            write(*,*) "gcmtochim: Error; no N tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no N tracer", 1)
          end if
          if (igcm_n2d == 0) then
-            write(*,*) "gcmtochim: Error; no N2D tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no N2D tracer", 1)
          end if
          if (igcm_no == 0) then
-            write(*,*) "gcmtochim: Error; no NO tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no NO tracer", 1)
          end if
          if (igcm_no2 == 0) then
-            write(*,*) "gcmtochim: Error; no NO2 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no NO2 tracer", 1)
          end if
          if (igcm_n2 == 0) then
-            write(*,*) "gcmtochim: Error; no N2 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no N2 tracer", 1)
          end if
          if (igcm_h2o_vap == 0) then
-            write(*,*) "gcmtochim: Error; no water vapor tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no water vapor tracer", 1)
          end if
 
          if (igcm_ch4 == 0) then
-            write(*,*) "gcmtochim: Error; no CH4 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no CH4 tracer", 1)
          end if
          if (igcm_ch3 == 0) then
-            write(*,*) "gcmtochim: Error; no CH3 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no CH3 tracer", 1)
          end if
          if (igcm_ch == 0) then
-            write(*,*) "gcmtochim: Error; no CH tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no CH tracer", 1)
          end if
          if (igcm_3ch2 == 0) then
-            write(*,*) "gcmtochim: Error; no 3CH2 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no 3CH2 tracer", 1)
          end if
          if (igcm_1ch2 == 0) then
-            write(*,*) "gcmtochim: Error; no 1CH2 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no 1CH2 tracer", 1)
          end if
          if (igcm_cho == 0) then
-            write(*,*) "gcmtochim: Error; no CHO tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no CHO tracer", 1)
          end if
          if (igcm_ch2o == 0) then
-            write(*,*) "gcmtochim: Error; no CH2O tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no CH2O tracer", 1)
          end if
          if (igcm_ch3o == 0) then
-            write(*,*) "gcmtochim: Error; no CH3O tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no CH3O tracer", 1)
          end if
          if (igcm_c == 0) then
-            write(*,*) "gcmtochim: Error; no C tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no C tracer", 1)
          end if
          if (igcm_c2 == 0) then
-            write(*,*) "gcmtochim: Error; no C2 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no C2 tracer", 1)
          end if
          if (igcm_c2h == 0) then
-            write(*,*) "gcmtochim: Error; no C2H tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no C2H tracer", 1)
          end if
          if (igcm_c2h2 == 0) then
-            write(*,*) "gcmtochim: Error; no C2H2 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no C2H2 tracer", 1)
          end if
          if (igcm_c2h3 == 0) then
-            write(*,*) "gcmtochim: Error; no C2H3 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no C2H3 tracer", 1)
          end if
          if (igcm_c2h4 == 0) then
-            write(*,*) "gcmtochim: Error; no C2H4 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no C2H4 tracer", 1)
          end if
          if (igcm_c2h6 == 0) then
-            write(*,*) "gcmtochim: Error; no C2H6 tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no C2H6 tracer", 1)
          end if
          if (igcm_ch2co == 0) then
-            write(*,*) "gcmtochim: Error; no CH2CO tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no CH2CO tracer", 1)
          end if
          if (igcm_ch3co == 0) then
-            write(*,*) "gcmtochim: Error; no CH3CO tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no CH3CO tracer", 1)
          end if
          if (igcm_hcaer == 0) then
-            write(*,*) "gcmtochim: Error; no HCAER tracer !!!"
-            stop
+            call abort_physic("phochemistry_early_earth", "no hcaer tracer", 1)
          end if