Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DYN/wet_dry.F90

Timestamp:

2020-12-18T18:52:57+01:00 (4 years ago)

Author:

mcastril

Message:

Add Mixed Precision support by Oriol Tintó

File:

• NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DYN/wet_dry.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DYN/wet_dry.F90

@@ -131 +131 @@
       !! ** Action  : - calculate flux limiter and W/D flag
       !!----------------------------------------------------------------------
-      REAL(wp), DIMENSION(:,:)            , INTENT(inout) ::   psshb1
+      REAL(dp), DIMENSION(:,:)            , INTENT(inout) ::   psshb1
       REAL(wp), DIMENSION(:,:)            , INTENT(in   ) ::   psshemp
       REAL(wp)                            , INTENT(in   ) ::   z2dt
       INTEGER                             , INTENT(in   ) ::   Kmm       ! time level index
-      REAL(wp), DIMENSION(jpi,jpj,jpk,jpt), INTENT(inout) ::   puu, pvv  ! velocity arrays
+      REAL(dp), DIMENSION(jpi,jpj,jpk,jpt), INTENT(inout) ::   puu, pvv  ! velocity arrays
       !
       INTEGER  ::   ji, jj, jk, jk1     ! dummy loop indices
@@ -281 +281 @@
       !!----------------------------------------------------------------------
       REAL(wp)                , INTENT(in   ) ::   rDt_e    ! ocean time-step index
-      REAL(wp), DIMENSION(:,:), INTENT(inout) ::   zflxu,  zflxv, sshn_e, zssh_frc  
+      REAL(dp), DIMENSION(:,:), INTENT(inout) ::   sshn_e, zssh_frc
+      REAL(wp), DIMENSION(:,:), INTENT(inout) ::   zflxu,  zflxv  
       !
       INTEGER  ::   ji, jj, jk, jk1     ! dummy loop indices
@@ -391 +392 @@
    !!==============================================================================
 END MODULE wet_dry
+