Changeset 12165 for NEMO/branches/2019/dev_ASINTER-01-05_merged/src/OCE/FLO/flodom.F90

Timestamp:

2019-12-11T09:27:27+01:00 (4 years ago)

Author:

davestorkey

Message:

2019/dev_ASINTER-01-05_merged: Update to r12072 of trunk.

File:

• NEMO/branches/2019/dev_ASINTER-01-05_merged/src/OCE/FLO/flodom.F90 (modified) (1 diff)

NEMO/branches/2019/dev_ASINTER-01-05_merged/src/OCE/FLO/flodom.F90

@@ -433 +433 @@
       IF( ABS(dlx) > 1.0_wp ) dlx = 1.0_wp
       !
-      dld = ATAN(DSQRT( 1._wp * ( 1._wp-dlx )/( 1._wp+dlx ) )) * 222.24_wp / dls
+      dld = ATAN(SQRT( 1._wp * ( 1._wp-dlx )/( 1._wp+dlx ) )) * 222.24_wp / dls
       flo_dstnce = dld * 1000._wp
       !