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

LMDZ5/trunk/libf/dyn3d/ran1.F

@@ -28 +28 @@
       IX3=MOD(IA3*IX3+IC3,M3)
       J=1+(97*IX3)/M3
-      IF(J.GT.97.OR.J.LT.1)PAUSE
+      IF(J.GT.97.OR.J.LT.1) stop 1
       RAN1=R(J)
       R(J)=(REAL(IX1)+REAL(IX2)*RM2)*RM1