Changeset 14654

Timestamp:

2021-03-29T16:38:08+02:00 (3 years ago)

Author:

sparonuz

Message:

Removed fsline: is a statement functions, which is deprecated since f95. Created a proper function.

File:

• NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/FLO/flodom.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/FLO/flodom.F90

@@ -373 +373 @@
       !!
       REAL(dp) ::   zabt, zbct, zcdt, zdat, zabpt, zbcpt, zcdpt, zdapt
-      !!---------------------------------------------------------------------
-      !! Statement function
-      REAL(dp) ::   fsline
-      REAL(dp) ::   psax, psay, psbx, psby, psx, psy
-      fsline( psax, psay, psbx, psby, psx, psy ) = psy  * ( psbx - psax )   &
-         &                                       - psx  * ( psby - psay )   &
-         &                                       + psax *   psby - psay * psbx
-      !!---------------------------------------------------------------------
       
       ! 4 semi plane defined by the 4 points and including the T point
@@ -413 +405 @@
       ENDIF
       !
+      !!---------------------------------------------------------------------
+      !! Statement function
+      CONTAINS
+      FUNCTION fsline(psax, psay, psbx, psby, psx, psy)
+          REAL(dp), INTENT(IN) :: psax, psay, psbx, psby, psx, psy
+          REAL(dp) :: fsline
+          fsline = psy  * ( psbx - psax )   &
+             &   - psx  * ( psby - psay )   &
+             &   + psax *   psby - psay * psbx
+      END FUNCTION fsline
+      !!---------------------------------------------------------------------
    END SUBROUTINE flo_findmesh