Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/obs_read_altbias.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/OBS/obs_read_altbias.F90 (modified) (2 diffs)

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

@@ -92 +92 @@
       INTEGER :: i_var_id
 
-      REAL(wp), DIMENSION(1) :: &
+      REAL(dp), DIMENSION(1) :: &
          & zext, &
          & zobsmask
-      REAL(wp), DIMENSION(2,2,1) :: &
+      REAL(dp), DIMENSION(2,2,1) :: &
          & zweig
-      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: &
+      REAL(dp), DIMENSION(:,:,:), ALLOCATABLE :: &
          & zmask, &
          & zbias, &
          & zglam, &
          & zgphi
-      REAL(wp), DIMENSION(jpi,jpj) ::   z_altbias
-      REAL(wp) :: zlam
-      REAL(wp) :: zphi
+      REAL(dp), DIMENSION(jpi,jpj) ::   z_altbias
+      REAL(dp) :: zlam
+      REAL(dp) :: zphi
       INTEGER, DIMENSION(:,:,:), ALLOCATABLE :: &
          & igrdi, &
@@ -166 +166 @@
 
       CALL obs_int_comm_2d( 2, 2, sladata%nsurf, jpi, jpj, &
-         &                  igrdi, igrdj, CASTWP(glamt), zglam )
-      CALL obs_int_comm_2d( 2, 2, sladata%nsurf, jpi, jpj, &
-         &                  igrdi, igrdj, CASTWP(gphit), zgphi )
+         &                  igrdi, igrdj, glamt, zglam )
+      CALL obs_int_comm_2d( 2, 2, sladata%nsurf, jpi, jpj, &
+         &                  igrdi, igrdj, gphit, zgphi )
       CALL obs_int_comm_2d( 2, 2, sladata%nsurf, jpi, jpj, &
          &                  igrdi, igrdj, tmask(:,:,1), zmask )