Changeset 3893 for trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/newstart.F

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/newstart.F (modified) (12 diffs)

trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/newstart.F

@@ -259 +259 @@
           write(6,*)' Problem opening file:',fichnom
           write(6,*)' ierr = ', ierr
-          CALL ABORT
+          CALL abort_physic("newstart",
+     &         "Problem opening start_archive.nc file",1)
         ENDIF
         tab0 = 50 
@@ -275 +276 @@
           write(6,*)' Problem opening file:',fichnom
           write(6,*)' ierr = ', ierr
-          CALL ABORT
+          CALL abort_physic("newstart",
+     &         "Problem opening start.nc file", 1)
         ENDIF
  
@@ -283 +285 @@
           write(6,*)' Problem opening file:',fichnom
           write(6,*)' ierr = ', ierr
-          CALL ABORT
+          CALL abort_physic("newstart",
+     &         "Problem opening startfi.nc file", 1)
         ENDIF
 
@@ -1095 +1098 @@
         ! check that there is indeed a water vapor tracer
         if (igcm_h2o_vap.eq.0) then
-          write(*,*) "No water vapour tracer! Can't use this option"
-          stop
+          call abort_physic("newstart",
+     &         "No water vapour tracer! Can't use wetstart",1)
         endif
           DO l=1,llm
@@ -1115 +1118 @@
         else if (trim(modif) .eq. 'noglacier') then
            if (igcm_h2o_ice.eq.0) then
-             write(*,*) "No water ice tracer! Can't use this option"
-             stop
+             call abort_physic("newstart",
+     &            "No water ice tracer! Can't use noglacier",1)
            endif
            do ig=1,ngridmx
@@ -1132 +1135 @@
         else if (trim(modif) .eq. 'watercapn') then
            if (igcm_h2o_ice.eq.0) then
-             write(*,*) "No water ice tracer! Can't use this option"
-             stop
+             call abort_physic("newstart",
+     &            "No water ice tracer! Can't use watercapn",1)
            endif
 
@@ -1158 +1161 @@
         else if (trim(modif) .eq. 'watercaps') then
            if (igcm_h2o_ice.eq.0) then
-              write(*,*) "No water ice tracer! Can't use this option"
-              stop
+              call abort_physic("newstart",
+     &             "No water ice tracer! Can't use watercaps",1)
            endif
 
@@ -1185 +1188 @@
         else if (trim(modif) .eq. 'noacglac') then
            if (igcm_h2o_ice.eq.0) then
-             write(*,*) "No water ice tracer! Can't use this option"
-             stop
+             call abort_physic("newstart",
+     &            "No water ice tracer! Can't use noacglac",1)
            endif
           DO j=1,jjp1        
@@ -1214 +1217 @@
         else if (trim(modif) .eq. 'oborealis') then
            if (igcm_h2o_ice.eq.0) then
-             write(*,*) "No water ice tracer! Can't use this option"
-             stop
+             call abort_physic("newstart",
+     &            "No water ice tracer! Can't use oborealis",1)
            endif
           DO j=1,jjp1        
@@ -1246 +1249 @@
         else if (trim(modif) .eq. 'iborealis') then
            if (igcm_h2o_ice.eq.0) then
-             write(*,*) "No water ice tracer! Can't use this option"
-             stop
+             call abort_physic("newstart",
+     &            "No water ice tracer! Can't use iborealis",1)
            endif
           DO j=1,jjp1        
@@ -1270 +1273 @@
         else if (trim(modif) .eq. 'oceanball') then
            if (igcm_h2o_ice.eq.0) then
-             write(*,*) "No water ice tracer! Can't use this option"
-             stop
+             call abort_physic("newstart",
+     &            "No water ice tracer! Can't use oceanball",1)
            endif
           DO j=1,jjp1        
@@ -1299 +1302 @@
         else if (trim(modif) .eq. 'iceball') then
            if (igcm_h2o_ice.eq.0) then
-             write(*,*) "No water ice tracer! Can't use this option"
-             stop
+             call abort_physic("newstart",
+     &            "No water ice tracer! Can't use iceball",1)
            endif
           DO j=1,jjp1