Changeset 1930 for LMDZ5/trunk/libf/dyn3dpar/grid_atob.F

Timestamp:

Jan 17, 2014, 5:45:09 PM (11 years ago)

Author:

lguez

Message:

abort, dfloat and pause are not in the Fortran standard. Replaced
abort by abort_gcm and dfloat by dble. Note: I modified dyn3dpar files
that were identical to dyn3d modified files.

File:

• LMDZ5/trunk/libf/dyn3dpar/grid_atob.F (modified) (14 diffs)

LMDZ5/trunk/libf/dyn3dpar/grid_atob.F

@@ -55 +55 @@
       IF (imar.GT.2200 .OR. jmar.GT.1100) THEN
          PRINT*, 'imar ou jmar trop grand', imar, jmar
-         CALL ABORT
+         CALL ABORT_GCM("", "", 1)
       ENDIF
 c
@@ -119 +119 @@
          ELSE
          PRINT*, 'probleme,i,j=', i,j
-ccc         CALL ABORT
+ccc         CALL ABORT_GCM("", "", 1)
          CALL dist_sphe(x(i),y(j),xdata,ydata,imdep,jmdep,distans)
 #ifdef CRAY
@@ -193 +193 @@
       IF (imar.GT.400 .OR. jmar.GT.200) THEN
          PRINT*, 'imar ou jmar trop grand', imar, jmar
-         CALL ABORT
+         CALL ABORT_GCM("", "", 1)
       ENDIF
 c
       IF (imdep.GT.400 .OR. jmdep.GT.200) THEN
          PRINT*, 'imdep ou jmdep trop grand', imdep, jmdep
-         CALL ABORT
+         CALL ABORT_GCM("", "", 1)
       ENDIF
 c
@@ -258 +258 @@
             PRINT*, 'Probleme grave,i,j,indx,indy=',
      .              i,j,indx(i,j),indy(i,j)
-            CALL abort
+            call abort_gcm("", "", 1)
          ENDIF
       ENDDO
@@ -309 +309 @@
          ELSE
          PRINT*, 'probleme,i,j=', i,j
-         CALL ABORT
+         CALL ABORT_GCM("", "", 1)
          ENDIF
       ENDDO
@@ -345 +345 @@
       IF (imar.GT.2200 .OR. jmar.GT.1100) THEN
          PRINT*, 'imar ou jmar trop grand', imar, jmar
-         CALL ABORT
+         CALL ABORT_GCM("", "", 1)
       ENDIF
 c
@@ -409 +409 @@
          ELSE
          PRINT*, 'probleme,i,j=', i,j
-         CALL ABORT
+         CALL ABORT_GCM("", "", 1)
          ENDIF
       ENDDO
@@ -452 +452 @@
       IF (imar.GT.400 .OR. jmar.GT.400) THEN
          PRINT*, 'imar ou jmar trop grand', imar, jmar
-         CALL ABORT
+         CALL ABORT_GCM("", "", 1)
       ENDIF
 c
@@ -513 +513 @@
          ELSE
             PRINT*, 'probleme,i,j=', i,j
-ccc            CALL ABORT
+ccc            CALL ABORT_GCM("", "", 1)
          CALL dist_sphe(x(i),y(j),xdata,ydata,imdep,jmdep,distans)
 #ifdef CRAY
@@ -577 +577 @@
       IF (imar.GT.400 .OR. jmar.GT.400) THEN
          PRINT*, 'imar ou jmar trop grand', imar, jmar
-         CALL ABORT
+         CALL ABORT_GCM("", "", 1)
       ENDIF
 c
@@ -642 +642 @@
          ELSE
            PRINT*, 'probleme,i,j=', i,j
-ccc           CALL ABORT
+ccc           CALL ABORT_GCM("", "", 1)
          CALL dist_sphe(x(i),y(j),xdata,ydata,imdep,jmdep,distans)
 #ifdef CRAY
@@ -712 +712 @@
       IF (immod.GT.2200 .OR. jmmod.GT.1100) THEN
          PRINT*, 'immod ou jmmod trop grand', immod, jmmod
-         CALL ABORT
+         CALL ABORT_GCM("", "", 1)
       ENDIF
 c
@@ -801 +801 @@
          ELSE
          PRINT*, 'probleme,i,j=', i,j
-         CALL ABORT
+         CALL ABORT_GCM("", "", 1)
          ENDIF
       ENDDO
@@ -875 +875 @@
          ELSE
          PRINT*, 'probleme,i,j=', i,j
-ccc         CALL ABORT
+ccc         CALL ABORT_GCM("", "", 1)
          CALL dist_sphe(xmod(i),ymod(j),xtmp,ytmp,imtmp,jmtmp,distans)
 #ifdef CRAY