Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/lib_fortran.F90
- Timestamp:
- 2021-11-26T12:27:56+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/lib_fortran.F90
r14644 r15540 91 91 FUNCTION local_sum_2d( ptab ) 92 92 !!---------------------------------------------------------------------- 93 REAL( wp), INTENT(in ) :: ptab(:,:) ! array on which operation is applied93 REAL(dp), INTENT(in ) :: ptab(:,:) ! array on which operation is applied 94 94 COMPLEX(dp) :: local_sum_2d 95 95 ! … … 97 97 ! 98 98 COMPLEX(dp):: ctmp 99 REAL( wp) :: ztmp99 REAL(dp) :: ztmp 100 100 INTEGER :: ji, jj ! dummy loop indices 101 101 INTEGER :: ipi, ipj ! dimensions … … 126 126 ! 127 127 COMPLEX(dp):: ctmp 128 REAL( wp) :: ztmp128 REAL(dp) :: ztmp 129 129 INTEGER :: ji, jj, jk ! dummy loop indices 130 130 INTEGER :: ipi, ipj, ipk ! dimensions … … 158 158 !! ** Purpose : sum over 3x3 boxes 159 159 !!---------------------------------------------------------------------- 160 REAL( wp), DIMENSION (:,:), INTENT(inout) :: p2d160 REAL(dp), DIMENSION (:,:), INTENT(inout) :: p2d 161 161 ! 162 162 INTEGER :: ji, ji2, jj, jj2 ! dummy loop indices … … 210 210 !! ** Purpose : sum over 3x3 boxes 211 211 !!---------------------------------------------------------------------- 212 REAL( wp), DIMENSION (:,:,:), INTENT(inout) :: p3d212 REAL(dp), DIMENSION (:,:,:), INTENT(inout) :: p3d 213 213 ! 214 214 INTEGER :: ji, ji2, jj, jj2, jn ! dummy loop indices … … 292 292 ! 293 293 ! The result is t1 + t2, after normalization. 294 yddb = CMPLX( zt1 + zt2, zt2 - ((zt1 + zt2) - zt1), wp )294 yddb = CMPLX( zt1 + zt2, zt2 - ((zt1 + zt2) - zt1), dp ) 295 295 ! 296 296 END SUBROUTINE DDPDD
Note: See TracChangeset
for help on using the changeset viewer.