Changeset 3456 for branches/2012/dev_r3438_LOCEAN15_PISLOB

Timestamp:

2012-08-21T14:13:25+02:00 (12 years ago)

Author:

cetlod

Message:

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

File:

• branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zfechem.F90 (modified) (1 diff)

branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zfechem.F90

@@ -167 +167 @@
                         zfff = zq / ( 2. * zr * zr * zr )
                         zfff = MIN( 1., zfff )
-                        !zphi = ACOSH( zfff )
-                        zphi = LOG( zfff + SQRT( zfff * zfff - 1 ) )  ! acosh(x) = log( x + sqrt( x*x - 1 ) )
+                        zphi = ACOS( zfff )
                         DO jic = 1, 3
                            zfunc = -2 * zr * COS( zphi / 3. + 2. * FLOAT( jic - 1 ) * rpi / 3. ) - za2 / 3.