/[MITgcm]/MITgcm/model/src/port_rand.F
ViewVC logotype

Diff of /MITgcm/model/src/port_rand.F

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

revision 1.2 by adcroft, Fri Feb 2 21:04:48 2001 UTC revision 1.3 by cnh, Wed Sep 26 18:09:16 2001 UTC
# Line 6  C Portable random number generator Line 6  C Portable random number generator
6  #undef _USE_INTEGERS  #undef _USE_INTEGERS
7    
8  ! ==============================================================================  ! ==============================================================================
9    CBOP
10    C     !ROUTINE: port_rand
11    C     !INTERFACE:
12        real*8 function port_rand()        real*8 function port_rand()
13    
14    C     !DESCRIPTION: \bv
15    C     Portable random number generator
16    C     \ev
17    
18    C     !LOCAL VARIABLES:
19        implicit none        implicit none
20        integer nff        integer nff
21        parameter(nff=55)        parameter(nff=55)
# Line 31  C Portable random number generator Line 40  C Portable random number generator
40        logical firstCall        logical firstCall
41        save firstCall,inext,inextp,ma        save firstCall,inext,inextp,ma
42        data firstCall /.true./        data firstCall /.true./
43    CEOP
44  ! ------------------------------------------------------------------------------  ! ------------------------------------------------------------------------------
45        if(firstCall)then        if(firstCall)then
46          firstCall=.false.          firstCall=.false.

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.22