Changeset 14286 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/lib_fortran_generic.h90

Timestamp:

2021-01-11T18:30:11+01:00 (3 years ago)

Author:

mcastril

Message:

Reformatting and allowing to use key_qco

File:

• NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/lib_fortran_generic.h90 (modified) (10 diffs)

NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/lib_fortran_generic.h90

@@ -1 @@
-#if defined SINGLE_PRECISION
-#   define TYPE                          REAL(sp)
-#else
-#   define TYPE                          REAL(dp)
-#endif
-
 #if defined GLOBSUM_CODE
 !                          ! FUNCTION FUNCTION_GLOBSUM !
 #   if defined DIM_1d
-#      define ARRAY_TYPE(i,j,k)    TYPE                 , INTENT(in   ) ::   ARRAY_IN(i,j,k)
+#      define ARRAY_TYPE(i,j,k)    REAL(PRECISION)                 , INTENT(in   ) ::   ARRAY_IN(i,j,k)
 #      define ARRAY_IN(i,j,k)   ptab(i)
 #      define ARRAY2_IN(i,j,k)  ptab2(i)
@@ -16 +10 @@
 #   endif
 #   if defined DIM_2d
-#      define ARRAY_TYPE(i,j,k)    TYPE                 , INTENT(in   ) ::   ARRAY_IN(i,j,k)
+#      define ARRAY_TYPE(i,j,k)    REAL(PRECISION)                 , INTENT(in   ) ::   ARRAY_IN(i,j,k)
 #      define ARRAY_IN(i,j,k)   ptab(i,j)
 #      define ARRAY2_IN(i,j,k)  ptab2(i,j)
@@ -23 +17 @@
 #   endif
 #   if defined DIM_3d
-#      define ARRAY_TYPE(i,j,k)    TYPE                 , INTENT(in   ) ::   ARRAY_IN(i,j,k)
+#      define ARRAY_TYPE(i,j,k)    REAL(PRECISION)                 , INTENT(in   ) ::   ARRAY_IN(i,j,k)
 #      define ARRAY_IN(i,j,k)   ptab(i,j,k)
 #      define ARRAY2_IN(i,j,k)  ptab2(i,j,k)
@@ -40 +34 @@
       CHARACTER(len=*),  INTENT(in   ) ::   cdname  ! name of the calling subroutine
       ARRAY_TYPE(:,:,:)                             ! array on which operation is applied
-      TYPE   ::  FUNCTION_GLOBSUM
+      REAL(PRECISION)   ::  FUNCTION_GLOBSUM
       !
       !!-----------------------------------------------------------------------
       !!
       COMPLEX(dp)::   ctmp
-      TYPE   ::   ztmp
+      REAL(PRECISION)   ::   ztmp
       INTEGER    ::   ji, jj, jk   ! dummy loop indices
       INTEGER    ::   ipi, ipj, ipk    ! dimensions
@@ -69 +63 @@
    END FUNCTION FUNCTION_GLOBSUM
 
-#undef TYPE
 #undef ARRAY_TYPE
 #undef ARRAY2_TYPE
@@ -82 +75 @@
 !                          ! FUNCTION FUNCTION_GLOBMINMAX !
 #   if defined DIM_2d
-#      define ARRAY_TYPE(i,j,k)    TYPE                 , INTENT(in   ) ::   ARRAY_IN(i,j,k)
+#      define ARRAY_TYPE(i,j,k)    REAL(PRECISION)                 , INTENT(in   ) ::   ARRAY_IN(i,j,k)
 #      define ARRAY_IN(i,j,k)   ptab(i,j)
 #      define ARRAY2_IN(i,j,k)  ptab2(i,j)
@@ -88 +81 @@
 #   endif
 #   if defined DIM_3d
-#      define ARRAY_TYPE(i,j,k)    TYPE                 , INTENT(in   ) ::   ARRAY_IN(i,j,k)
+#      define ARRAY_TYPE(i,j,k)    REAL(PRECISION)                 , INTENT(in   ) ::   ARRAY_IN(i,j,k)
 #      define ARRAY_IN(i,j,k)   ptab(i,j,k)
 #      define ARRAY2_IN(i,j,k)  ptab2(i,j,k)
@@ -108 +101 @@
       CHARACTER(len=*),  INTENT(in   ) ::   cdname  ! name of the calling subroutine
       ARRAY_TYPE(:,:,:)                             ! array on which operation is applied
-      TYPE   ::  FUNCTION_GLOBMINMAX
+      REAL(PRECISION)   ::  FUNCTION_GLOBMINMAX
       !
       !!-----------------------------------------------------------------------
@@ -114 +107 @@
       !!
       COMPLEX(dp)::   ctmp
-      REAL(wp)   ::   ztmp
+      REAL(PRECISION)   ::   ztmp
       INTEGER    ::   jk       ! dummy loop indices
       INTEGER    ::   ipk      ! dimensions
@@ -133 +126 @@
    END FUNCTION FUNCTION_GLOBMINMAX
 
-#undef TYPE
 #undef ARRAY_TYPE
 #undef ARRAY2_TYPE