Changeset 4584 for LMDZ6/branches/Portage_acc/libf/dynphy_lonlat/gr_dyn_fi.F

Timestamp:

Jun 23, 2023, 4:10:41 PM (15 months ago)

Author:

Laurent Fairhead

Message:

Merged trunk revisions from r4443 to r4582 (HEAD) into branch

File:

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

LMDZ6/branches/Portage_acc/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
+         call abort_gcm("gr_dyn_fi", 'probleme de dim', 1)
+      end if
 c   traitement des poles
       CALL SCOPY(nfield,pdyn,im*jm,pfi,ngrid)