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

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/FLO/flowri.F90

@@ -30 +30 @@
    CHARACTER (len=80)  :: clname             ! netcdf output filename
 
-   REAL(wp), ALLOCATABLE, DIMENSION(:) ::   zlon , zlat, zdep   ! 2D workspace
-   REAL(wp), ALLOCATABLE, DIMENSION(:) ::   ztem , zsal, zrho   ! 2D workspace
+   REAL(dp), ALLOCATABLE, DIMENSION(:) ::   zlon , zlat, zdep   ! 2D workspace
+   REAL(dp), ALLOCATABLE, DIMENSION(:) ::   ztem , zsal, zrho   ! 2D workspace
 
    !!----------------------------------------------------------------------
@@ -73 +73 @@
       INTEGER  :: irec, irecflo
 
-      REAL(wp) :: zafl,zbfl,zcfl                 ! temporary real
-      REAL(wp) :: ztime                          !   "
+      REAL(dp) :: zafl,zbfl,zcfl                 ! temporary real
+      REAL(dp) :: ztime                          !   "
 
       INTEGER, DIMENSION(2)          :: icount