/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_random.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/darwin_random.F

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

revision 1.1 by jahn, Wed Apr 13 18:56:24 2011 UTC revision 1.2 by jahn, Thu May 12 16:13:11 2011 UTC
# Line 214  C     == Functions == Line 214  C     == Functions ==
214    
215  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
216  C     == Local variables ==  C     == Local variables ==
217  #ifdef PORT_RAND  #ifndef PORT_RAND
       real*8 Dseed  
 #else  
218        INTEGER Iseed        INTEGER Iseed
219        real*8 uniform        real*8 uniform
220        real*8 normal        real*8 normal
# Line 230  CEOP Line 228  CEOP
228        END IF        END IF
229    
230  #ifdef PORT_RAND  #ifdef PORT_RAND
231        Dseed = -1.d0        darwin_random_normal = port_rand_norm()
       darwin_random_normal = port_rand_norm(Dseed)  
232  #else  #else
233        Iseed = 0        Iseed = 0
234        uniform = rand(Iseed)        uniform = rand(Iseed)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22