/[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.25 by molod, Tue Dec 14 19:56:45 2004 UTC revision 1.26 by jmc, Tue Mar 1 15:25:11 2005 UTC
# Line 1400  c -------------------------------------- Line 1400  c --------------------------------------
1400    
1401  c First Time In From a Continuing RESTART (IRAS.GT.1) or Reading a New RESTART  c First Time In From a Continuing RESTART (IRAS.GT.1) or Reading a New RESTART
1402  c ----------------------------------------------------------------------------  c ----------------------------------------------------------------------------
1403    c     print *,' RNDCLOUD: first ',first,' iras ',iras,' iras0 ',iras0
1404    c     print *,' RNDCLOUD: irm,nrnd,mcheck=',irm,nrnd,mcheck
1405        if( first.and.(iras.gt.1) .or. iras.ne.iras0+1 )then        if( first.and.(iras.gt.1) .or. iras.ne.iras0+1 )then
1406         print *,' first ',first,' iras ',iras,' iras0 ',iras0         print *,' first ',first,' iras ',iras,' iras0 ',iras0
1407         if( myid.eq.1 ) print *, 'Recreating Rand Numb Array in RNDCLOUD'         if( myid.eq.1 ) print *, 'Recreating Rand Numb Array in RNDCLOUD'
# Line 1445  c -------------------------------------- Line 1447  c --------------------------------------
1447        integer iseed        integer iseed
1448        real *8 seed,port_rand        real *8 seed,port_rand
1449        _RL random_numbx        _RL random_numbx
       random_numbx = 0  
1450  #ifdef CRAY  #ifdef CRAY
1451        _RL ranf        _RL ranf
1452        random_numbx = ranf()        random_numbx = ranf()
# Line 1453  c -------------------------------------- Line 1454  c --------------------------------------
1454  #ifdef SGI  #ifdef SGI
1455        _RL rand        _RL rand
1456        random_numbx = rand()        random_numbx = rand()
1457  #endif  #else
1458          seed = iseed
1459        random_numbx = port_rand(seed)        random_numbx = port_rand(seed)
1460  #endif  #endif
1461    #endif
1462        return        return
1463        end        end
1464        subroutine random_seedx (iseed)        subroutine random_seedx (iseed)
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22