Changeset 4456 for LMDZ6/trunk/libf/dynphy_lonlat/gr_dyn_fi.F

Timestamp:

Mar 7, 2023, 7:18:57 PM (16 months ago)

Author:

lguez

Message:

Stop with return code 1

So that a calling script may know that the program failed.

File:

• LMDZ6/trunk/libf/dynphy_lonlat/gr_dyn_fi.F (modified) (1 diff)

LMDZ6/trunk/libf/dynphy_lonlat/gr_dyn_fi.F

@@ -22 +22 @@
 c   -------
 
-      IF(ngrid.NE.2+(jm-2)*(im-1)) STOP 'probleme de dim'
+      IF (ngrid.NE.2+(jm-2)*(im-1)) then
+         print *, 'probleme de dim'
+         stop 1
+      end if
 c   traitement des poles
       CALL SCOPY(nfield,pdyn,im*jm,pfi,ngrid)