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

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/CRS/crsdomwri.F90

@@ -52 +52 @@
       CHARACTER(len=21) ::   clnam        ! filename (mesh and mask informations)
       !                                   !  workspace
-      REAL(wp), DIMENSION(jpi_crs,jpj_crs    ) ::   zprt, zprw 
-      REAL(wp), DIMENSION(jpi_crs,jpj_crs,jpk) ::   zdepu, zdepv
+      REAL(dp), DIMENSION(jpi_crs,jpj_crs    ) ::   zprt, zprw 
+      REAL(dp), DIMENSION(jpi_crs,jpj_crs,jpk) ::   zdepu, zdepv
       !!----------------------------------------------------------------------
       !
@@ -177 +177 @@
       !!----------------------------------------------------------------------
       CHARACTER(len=1)        , INTENT(in   ) ::   cdgrd   ! 
-      REAL(wp), DIMENSION(:,:), INTENT(inout) ::   puniq   ! 
-      !
-      REAL(wp) ::  zshift   ! shift value link to the process number
+      REAL(dp), DIMENSION(:,:), INTENT(inout) ::   puniq   ! 
+      !
+      REAL(dp) ::  zshift   ! shift value link to the process number
       INTEGER  ::  ji       ! dummy loop indices
       LOGICAL , DIMENSION(jpi_crs,jpj_crs,1) ::   lluniq  ! store whether each point is unique or not
-      REAL(wp), DIMENSION(jpi_crs,jpj_crs  ) ::   ztstref
+      REAL(dp), DIMENSION(jpi_crs,jpj_crs  ) ::   ztstref
       !!----------------------------------------------------------------------
       !