/[MITgcm]/MITgcm/pkg/fizhi/fizhi_moist.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_moist.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.26 by jmc, Tue Mar 1 15:25:11 2005 UTC revision 1.28 by molod, Tue Mar 1 17:23:49 2005 UTC
# Line 1455  c -------------------------------------- Line 1455  c --------------------------------------
1455        _RL rand        _RL rand
1456        random_numbx = rand()        random_numbx = rand()
1457  #else  #else
1458        seed = iseed        seed = -1.d0
1459        random_numbx = port_rand(seed)        random_numbx = port_rand(seed)
1460  #endif  #endif
1461  #endif  #endif
# Line 1464  c -------------------------------------- Line 1464  c --------------------------------------
1464        subroutine random_seedx (iseed)        subroutine random_seedx (iseed)
1465        implicit none        implicit none
1466        integer  iseed        integer  iseed
1467          real *8 port_rand
1468  #ifdef CRAY  #ifdef CRAY
1469        call ranset (iseed)        call ranset (iseed)
1470  #endif  #else
1471  #ifdef SGI  #ifdef SGI
1472        integer*4   seed        integer*4   seed
1473                    seed = iseed                    seed = iseed
1474        call srand (seed)        call srand (seed)
1475    #else
1476          real*8 tmpRdN
1477          real*8 seed
1478          seed = iseed
1479          tmpRdN = port_rand(seed)
1480    #endif
1481  #endif  #endif
1482        return        return
1483        end        end
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22