Changeset 3456


Ignore:
Timestamp:
2012-08-21T14:13:25+02:00 (8 years ago)
Author:
cetlod
Message:

branch:2012/dev_r3438_LOCEAN15_PISLOB change ACOSH to COSH in p4zfechem.F90, see ticket #972

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zfechem.F90

    r3450 r3456  
    167167                        zfff = zq / ( 2. * zr * zr * zr ) 
    168168                        zfff = MIN( 1., zfff ) 
    169                         !zphi = ACOSH( zfff ) 
    170                         zphi = LOG( zfff + SQRT( zfff * zfff - 1 ) )  ! acosh(x) = log( x + sqrt( x*x - 1 ) ) 
     169                        zphi = ACOS( zfff ) 
    171170                        DO jic = 1, 3 
    172171                           zfunc = -2 * zr * COS( zphi / 3. + 2. * FLOAT( jic - 1 ) * rpi / 3. ) - za2 / 3. 
Note: See TracChangeset for help on using the changeset viewer.