Changeset 5366 for trunk/NEMOGCM/NEMO/OPA_SRC/storng.F90

Timestamp:

2015-06-05T13:21:13+02:00 (9 years ago)

Author:

pabouttier

Message:

Add AGRIF_DO_NOT_TREAT directve in storng to compile AGRIF configuration in SETTE; See Ticket #1527

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/storng.F90 (modified) (6 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/storng.F90

@@ -1 +1 @@
 MODULE storng
+!$AGRIF_DO_NOT_TREAT
    !!======================================================================
    !!                       ***  MODULE  storng  ***
@@ -89 +90 @@
       y = m( m( m(y,13_8), -17_8 ), 43_8 )
       z = 6906969069_8 * z + 1234567_8
-    
+
       kiss = x + y + z
 
@@ -266 +267 @@
 
       uran = half * ( one + REAL(kiss(),8) / huge64 )
-  
+
    END SUBROUTINE kiss_uniform
 
@@ -334 +335 @@
             CALL kiss_uniform(u2)
             zz = u1 * u1 * u2
-    
+
             accepted = rr .GE. (zz*p1-p2)
             IF (.NOT.accepted) accepted =  rr .GE. LOG(zz)
@@ -345 +346 @@
         ! (see Devroye, Non-Uniform Random Variate Generation, p. 415)
         c = one/k ; d = (one-k) * EXP( (k/(one-k)) * LOG(k) )
-    
+
         accepted=.FALSE.
         DO WHILE (.NOT.accepted)
@@ -396 +397 @@
 
    END SUBROUTINE kiss_sample
-
+!$AGRIF_END_DO_NOT_TREAT
 END MODULE storng