Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/LBC/halo_mng.F90

Timestamp:

2021-11-26T12:27:56+01:00 (3 years ago)

Author:

sparonuz

Message:

Mixed precision version, tested up to 30 years on ORCA2.

File:

• NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/LBC/halo_mng.F90 (modified) (5 diffs)

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/LBC/halo_mng.F90

@@ -71 +71 @@
    SUBROUTINE halo_mng_resize_2D(pta, cdna, psgn, fillval)
    
-      REAL(wp), POINTER, DIMENSION(:,:) :: pta
+      REAL(dp), POINTER, DIMENSION(:,:) :: pta
       CHARACTER(len=1), INTENT(in)  :: cdna
       REAL(wp), INTENT(in)  :: psgn
       REAL(wp), OPTIONAL, INTENT(in ) :: fillval
-      REAL(wp), POINTER, DIMENSION(:,:) :: zpta
+      REAL(dp), POINTER, DIMENSION(:,:) :: zpta
       INTEGER :: offset
       INTEGER :: pta_size_i, pta_size_j
@@ -101 +101 @@
    SUBROUTINE halo_mng_resize_3D(pta, cdna, psgn, fillval)
    
-      REAL(wp), POINTER, DIMENSION(:,:,:) :: pta
+      REAL(dp), POINTER, DIMENSION(:,:,:) :: pta
       CHARACTER(len=1), INTENT(in)  :: cdna
       REAL(wp), INTENT(in)  :: psgn
       REAL(wp), OPTIONAL, INTENT(in ) :: fillval
-      REAL(wp), POINTER, DIMENSION(:,:,:) :: zpta
+      REAL(dp), POINTER, DIMENSION(:,:,:) :: zpta
       INTEGER :: offset
       INTEGER :: pta_size_i, pta_size_j
@@ -131 +131 @@
    SUBROUTINE halo_mng_resize_4D(pta, cdna, psgn, fillval, fjpt)
    
-      REAL(wp), POINTER, DIMENSION(:,:,:,:) :: pta
+      REAL(dp), POINTER, DIMENSION(:,:,:,:) :: pta
       CHARACTER(len=1), INTENT(in)  :: cdna
       REAL(wp), INTENT(in)  :: psgn
       REAL(wp), OPTIONAL, INTENT(in) :: fillval
       INTEGER , INTENT(in) ::   fjpt 
-      REAL(wp), POINTER, DIMENSION(:,:,:,:) :: zpta
+      REAL(dp), POINTER, DIMENSION(:,:,:,:) :: zpta
       INTEGER :: offset
       INTEGER :: pta_size_i, pta_size_j
@@ -162 +162 @@
    SUBROUTINE halo_mng_resize_5D(pta, cdna, psgn, fillval, kjpt, fjpt)
    
-      REAL(wp), POINTER, DIMENSION(:,:,:,:,:) :: pta
+      REAL(dp), POINTER, DIMENSION(:,:,:,:,:) :: pta
       CHARACTER(len=1), INTENT(in)  :: cdna
       REAL(wp), INTENT(in)  :: psgn
@@ -168 +168 @@
       INTEGER , OPTIONAL, INTENT(in) :: kjpt            ! number of tracers
       INTEGER , INTENT(in) :: fjpt            
-      REAL(wp), POINTER, DIMENSION(:,:,:,:,:) :: zpta
+      REAL(dp), POINTER, DIMENSION(:,:,:,:,:) :: zpta
       INTEGER :: offset
       INTEGER :: pta_size_i, pta_size_j