Changeset 5366


Ignore:
Timestamp:
2015-06-05T13:21:13+02:00 (5 years ago)
Author:
pabouttier
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/storng.F90

    r5329 r5366  
    11MODULE storng 
     2!$AGRIF_DO_NOT_TREAT 
    23   !!====================================================================== 
    34   !!                       ***  MODULE  storng  *** 
     
    8990      y = m( m( m(y,13_8), -17_8 ), 43_8 ) 
    9091      z = 6906969069_8 * z + 1234567_8 
    91      
     92 
    9293      kiss = x + y + z 
    9394 
     
    266267 
    267268      uran = half * ( one + REAL(kiss(),8) / huge64 ) 
    268    
     269 
    269270   END SUBROUTINE kiss_uniform 
    270271 
     
    334335            CALL kiss_uniform(u2) 
    335336            zz = u1 * u1 * u2 
    336      
     337 
    337338            accepted = rr .GE. (zz*p1-p2) 
    338339            IF (.NOT.accepted) accepted =  rr .GE. LOG(zz) 
     
    345346        ! (see Devroye, Non-Uniform Random Variate Generation, p. 415) 
    346347        c = one/k ; d = (one-k) * EXP( (k/(one-k)) * LOG(k) ) 
    347      
     348 
    348349        accepted=.FALSE. 
    349350        DO WHILE (.NOT.accepted) 
     
    396397 
    397398   END SUBROUTINE kiss_sample 
    398  
     399!$AGRIF_END_DO_NOT_TREAT 
    399400END MODULE storng 
Note: See TracChangeset for help on using the changeset viewer.