Changeset 3456 for branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM
- Timestamp:
- 2012-08-21T14:13:25+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zfechem.F90
r3450 r3456 167 167 zfff = zq / ( 2. * zr * zr * zr ) 168 168 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 ) 171 170 DO jic = 1, 3 172 171 zfunc = -2 * zr * COS( zphi / 3. + 2. * FLOAT( jic - 1 ) * rpi / 3. ) - za2 / 3.
Note: See TracChangeset
for help on using the changeset viewer.