Changeset 14932

Timestamp:

2021-05-31T18:00:41+02:00 (3 years ago)

Author:

sparonuz

Message:

Removed custom precision, Ticket #2683

File:

• NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/obs_fbm.F90 (modified) (6 diffs)

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/obs_fbm.F90

@@ -20 +20 @@
    USE netcdf
    USE obs_utils      ! Various utilities for observation operators
+   USE par_kind
 
    IMPLICIT NONE
    PUBLIC
-
-   ! Type kinds for feedback data.
-
-   INTEGER, PARAMETER :: fbsp = SELECTED_REAL_KIND( 6, 37) !: single precision
-   INTEGER, PARAMETER :: fbdp = SELECTED_REAL_KIND(12,307) !: double precision
 
    ! Parameters for string lengths.
@@ -44 +40 @@
    
    INTEGER, PARAMETER    :: fbimdi = -99999   !: Integers
-   REAL(fbsp), PARAMETER :: fbrmdi =  99999   !: Reals
+   REAL(sp), PARAMETER :: fbrmdi =  99999   !: Reals
  
    ! Main data structure for observation feedback data.
@@ -77 +73 @@
       INTEGER, DIMENSION(:,:,:), POINTER :: &
          & idqcf                !: Depth QC flags
-      REAL(KIND=fbdp), DIMENSION(:), POINTER :: &
+      REAL(KIND=dp), DIMENSION(:), POINTER :: &
          & plam, &              !: Longitude
          & pphi, &              !: Latitude
          & ptim                 !: Time
-      REAL(KIND=fbsp), DIMENSION(:,:), POINTER :: &
+      REAL(KIND=sp), DIMENSION(:,:), POINTER :: &
          & pdep                 !: Depth
       CHARACTER(LEN=ilenname), DIMENSION(:), POINTER  :: &
          & cname                !: Name of variable
-      REAL(fbsp), DIMENSION(:,:,:), POINTER :: &
+      REAL(sp), DIMENSION(:,:,:), POINTER :: &
          & pob                  !: Observation
       CHARACTER(LEN=ilenlong), DIMENSION(:), POINTER :: &
@@ -113 +109 @@
       CHARACTER(LEN=ilenunit), DIMENSION(:,:), POINTER :: &
          & caddunit             !: Additional entries units (for output)
-      REAL(fbsp), DIMENSION(:,:,:,:)   , POINTER :: &
+      REAL(sp), DIMENSION(:,:,:,:)   , POINTER :: &
          & padd                 !: Additional entries
       CHARACTER(LEN=ilenname), DIMENSION(:), POINTER :: &
@@ -121 +117 @@
       CHARACTER(LEN=ilenunit), DIMENSION(:), POINTER :: &
          & cextunit             !: Extra variables units (for output)
-      REAL(fbsp), DIMENSION(:,:,:)   , POINTER :: &
+      REAL(sp), DIMENSION(:,:,:)   , POINTER :: &
          & pext                 !: Extra variables
    END TYPE obfbdata
@@ -1546 +1542 @@
       CHARACTER(len=*), OPTIONAL , INTENT(IN) :: cfillvalue    ! Fill value for character variables
       INTEGER, OPTIONAL , INTENT(IN) :: ifillvalue             ! Fill value for integer variables
-      REAL(kind=fbsp), OPTIONAL , INTENT(IN) :: rfillvalue     ! Fill value for real variables
+      REAL(kind=sp), OPTIONAL , INTENT(IN) :: rfillvalue     ! Fill value for real variables
       CHARACTER(len=*), OPTIONAL, INTENT(IN) :: conventions   ! Conventions for variable
       !! * Local variables