Changeset 4464 for LMDZ6/trunk/libf

Timestamp:

Mar 9, 2023, 6:03:51 PM (21 months ago)

Author:

lguez

Message:

Replace stop by call to abort_(physiq|gcm)

Location:

LMDZ6/trunk/libf/dynphy_lonlat

Files:

• calfis.F (modified) (1 diff)
• calfis_loc.F (modified) (2 diffs)
• gr_dyn_fi.F (modified) (1 diff)
• phylmd/limit_netcdf.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dynphy_lonlat/calfis.F

@@ -186 +186 @@
          write(lunout,*) '  ngridmx  jjm   iim   '
          write(lunout,*) ngridmx,jjm,iim
-         STOP
+         call abort_gcm("calfis", "", 1)
         ENDIF
       ELSE

LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F

@@ -262 +262 @@
           write(lunout,*) '  ngridmx  jjm   iim   ' 
           write(lunout,*) ngridmx,jjm,iim
-          STOP
+          call abort_gcm("calfis_loc", "", 1)
         ENDIF
 c$OMP MASTER
@@ -1218 +1218 @@
 
 #else 
-      write(lunout,*) 
-     & "calfis_p: for now can only work with parallel physics" 
-      stop 
+      call abort_gcm("calfis_loc",
+     & "calfis_p: for now can only work with parallel physics", 1)
 #endif 
 ! of #ifdef CPP_PHYS

LMDZ6/trunk/libf/dynphy_lonlat/gr_dyn_fi.F

@@ -23 +23 @@
 
       IF (ngrid.NE.2+(jm-2)*(im-1)) then
-         print *, 'probleme de dim'
-         stop 1
+         call abort_gcm("gr_dyn_fi", 'probleme de dim', 1)
       end if
 c   traitement des poles

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

@@ -599 +599 @@
          CALL pchfe_95(timeyear, champtime(i, j, :), yder, skip, &
               arth(0.5, real(ndays_in) / ndays, ndays), champan(i, j, :), ierr)
-         if (ierr < 0) stop 1
+         if (ierr < 0) call abort_physiq("get_2Dfield", "", 1)
          n_extrap = n_extrap + ierr
        END DO