Changeset 1930 for LMDZ5/trunk/libf/dyn3d/grid_noro.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/dyn3d/grid_noro.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3d/grid_noro.F

@@ -111 +111 @@
       IF (imar.GT.2200 .OR. jmar.GT.1100) THEN
          PRINT*, 'imar or jmar too big', imar, jmar
-         CALL ABORT
+         CALL ABORT_GCM("GRID_NORO", "", 1)
       ENDIF
 
       IF(imdep.ne.iusn.or.jmdep.ne.jusn)then
          print *,' imdep or jmdep bad dimensions:',imdep,jmdep
-         call abort
+         call abort_gcm("grid_noro", "", 1)
       ENDIF
 
       IF(imar+1.ne.iim+1.or.jmar.ne.jjm+1)THEN
         print *,' imar or jmar bad dimensions:',imar,jmar
-        call abort
+        call abort_gcm("grid_noro", "", 1)
       ENDIF