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

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/BDY/bdyvol.F90

@@ -68 +68 @@
       INTEGER  ::   ji, jj, jk, jb, jgrd
       INTEGER  ::   ib_bdy, ii, ij
-      REAL(wp) ::   zubtpecor, ztranst
-      REAL(wp), SAVE :: z_cflxemp                                  ! cumulated emp flux
-      REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pua2d, pva2d  ! Barotropic velocities
+      REAL(dp) ::   zubtpecor, ztranst
+      REAL(dp), SAVE :: z_cflxemp                                  ! cumulated emp flux
+      REAL(dp), DIMENSION(jpi,jpj), INTENT(inout) :: pua2d, pva2d  ! Barotropic velocities
       REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: phu, phv         ! Ocean depth at U- and V-points
       TYPE(OBC_INDEX), POINTER :: idx
@@ -180 +180 @@
    END SUBROUTINE bdy_vol2d
    !
-   REAL(wp) FUNCTION bdy_segs_surf(phu, phv)
+   REAL(dp) FUNCTION bdy_segs_surf(phu, phv)
       !!----------------------------------------------------------------------
       !!                 ***  ROUTINE bdy_ctl_seg  ***
@@ -191 +191 @@
       INTEGER            ::  igrd, ib_bdy, ib                ! loop indexes
       INTEGER , POINTER  ::  nbi, nbj                        ! short cuts
-      REAL(wp), POINTER  ::  zflagu, zflagv                  !    -   -
+      REAL(dp), POINTER  ::  zflagu, zflagv                  !    -   -
 
       ! Compute total lateral surface for volume correction: