/[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.10 by molod, Fri Jul 16 20:08:08 2004 UTC
# Line 1310  c -------------------------------------- Line 1310  c --------------------------------------
1310        function random_numbx()        function random_numbx()
1311        implicit none        implicit none
1312        real random_numbx        real random_numbx
1313  #if CRAY  #ifdef CRAY
1314        real ranf        real ranf
1315        random_numbx = ranf()        random_numbx = ranf()
1316  #endif  #endif
1317  #if SGI  #ifdef SGI
1318        real rand        real rand
1319        random_numbx = rand()        random_numbx = rand()
1320  #endif  #endif
# Line 1323  c -------------------------------------- Line 1323  c --------------------------------------
1323        subroutine random_seedx (iseed)        subroutine random_seedx (iseed)
1324        implicit none        implicit none
1325        integer  iseed        integer  iseed
1326  #if CRAY  #ifdef CRAY
1327        call ranset (iseed)        call ranset (iseed)
1328  #endif  #endif
1329  #if SGI  #ifdef SGI
1330        integer*4   seed        integer*4   seed
1331                    seed = iseed                    seed = iseed
1332        call srand (seed)        call srand (seed)
# Line 1500  C Line 1500  C
1500    
1501  c Explicit Inline Directives  c Explicit Inline Directives
1502  c --------------------------  c --------------------------
1503  #if CRAY  #ifdef CRAY
1504  #if f77  #ifdef f77
1505  cfpp$ expand (qsat)  cfpp$ expand (qsat)
1506  #endif  #endif
1507  #endif  #endif
# Line 2230  C Line 2230  C
2230    
2231  c Explicit Inline Directives  c Explicit Inline Directives
2232  c --------------------------  c --------------------------
2233  #if CRAY  #ifdef CRAY
2234  #if f77  #ifdef f77
2235  cfpp$ expand (qsat)  cfpp$ expand (qsat)
2236  #endif  #endif
2237  #endif  #endif
# Line 2452  C*************************************** Line 2452  C***************************************
2452    
2453  c Explicit Inline Directives  c Explicit Inline Directives
2454  c --------------------------  c --------------------------
2455  #if CRAY  #ifdef CRAY
2456  #if f77  #ifdef f77
2457  cfpp$ expand (qsat)  cfpp$ expand (qsat)
2458  #endif  #endif
2459  #endif  #endif
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22