Changeset 2579 for branches/TAM_V3_2_2/NEMOTAM/OPATAM_SRC/mt19937ar.f90

Timestamp:

2011-02-04T19:44:50+01:00 (13 years ago)

Author:

rblod

Message:

Correct TAM_V3_2_2

File:

• branches/TAM_V3_2_2/NEMOTAM/OPATAM_SRC/mt19937ar.f90 (modified) (2 diffs)

branches/TAM_V3_2_2/NEMOTAM/OPATAM_SRC/mt19937ar.f90

@@ -93 +93 @@
       INTEGER :: ks
       !
-      mt(0) = IAND(ks,jpall)
+      mt(0) = IAND(INT(ks,kind=8),jpall)
       DO mti = 1, jpn-1
          mt(mti) = 1812433253 * IEOR(mt(mti-1),ISHFT(mt(mti-1),-30)) + mti
@@ -150 +150 @@
 !-----------------------------------------------------------------------
       INTEGER :: mtrand_int32
-      INTEGER :: iy,jk
+      INTEGER :: jk
+      INTEGER*8 :: iy
       INTEGER*8, DIMENSION(0:1) :: mag01
 !