/[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.9 by molod, Wed Jul 14 00:47:28 2004 UTC revision 1.12 by molod, Sun Jul 18 23:17:00 2004 UTC
# Line 1275  c -------------------------------------- Line 1275  c --------------------------------------
1275         iseed   = iras * nrnd - numrand         iseed   = iras * nrnd - numrand
1276         call random_seedx(iseed)         call random_seedx(iseed)
1277         do i = 1,irm         do i = 1,irm
1278          random(i) = random_numbx()          random(i) = random_numbx(iseed)
1279         enddo         enddo
1280         index = (iras-1)*nrnd         index = (iras-1)*nrnd
1281    
# Line 1285  c -------------------------------------- Line 1285  c --------------------------------------
1285            iseed = (iras-1)*nrnd            iseed = (iras-1)*nrnd
1286            call random_seedx(iseed)            call random_seedx(iseed)
1287            do i = 1,irm            do i = 1,irm
1288             random(i) = random_numbx()             random(i) = random_numbx(iseed)
1289            enddo            enddo
1290            index = iseed            index = iseed
1291    
# Line 1307  c -------------------------------------- Line 1307  c --------------------------------------
1307        iras0 = iras        iras0 = iras
1308        return        return
1309        end        end
1310        function random_numbx()        function random_numbx(iseed)
1311        implicit none        implicit none
1312          integer iseed
1313          real *8 seed,port_rand
1314        real random_numbx        real random_numbx
1315  #if CRAY        random_numbx = 0
1316    #ifdef CRAY
1317        real ranf        real ranf
1318        random_numbx = ranf()        random_numbx = ranf()
1319  #endif  #else
1320  #if SGI  #ifdef SGI
1321        real rand        real rand
1322        random_numbx = rand()        random_numbx = rand()
1323  #endif  #endif
1324          random_numbx = port_rand(seed)
1325    #endif
1326        return        return
1327        end        end
1328        subroutine random_seedx (iseed)        subroutine random_seedx (iseed)
1329        implicit none        implicit none
1330        integer  iseed        integer  iseed
1331  #if CRAY  #ifdef CRAY
1332        call ranset (iseed)        call ranset (iseed)
1333  #endif  #endif
1334  #if SGI  #ifdef SGI
1335        integer*4   seed        integer*4   seed
1336                    seed = iseed                    seed = iseed
1337        call srand (seed)        call srand (seed)
# Line 1500  C Line 1505  C
1505    
1506  c Explicit Inline Directives  c Explicit Inline Directives
1507  c --------------------------  c --------------------------
1508  #if CRAY  #ifdef CRAY
1509  #if f77  #ifdef f77
1510  cfpp$ expand (qsat)  cfpp$ expand (qsat)
1511  #endif  #endif
1512  #endif  #endif
# Line 2230  C Line 2235  C
2235    
2236  c Explicit Inline Directives  c Explicit Inline Directives
2237  c --------------------------  c --------------------------
2238  #if CRAY  #ifdef CRAY
2239  #if f77  #ifdef f77
2240  cfpp$ expand (qsat)  cfpp$ expand (qsat)
2241  #endif  #endif
2242  #endif  #endif
# Line 2452  C*************************************** Line 2457  C***************************************
2457    
2458  c Explicit Inline Directives  c Explicit Inline Directives
2459  c --------------------------  c --------------------------
2460  #if CRAY  #ifdef CRAY
2461  #if f77  #ifdef f77
2462  cfpp$ expand (qsat)  cfpp$ expand (qsat)
2463  #endif  #endif
2464  #endif  #endif
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22