- Timestamp:
- 2020-07-03T19:15:31+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/lib_fortran.F90
r12377 r13247 143 143 !!---------------------------------------------------------------------- 144 144 REAL(wp), INTENT(in ) :: ptab(:,:) ! array on which operation is applied 145 COMPLEX( wp) :: local_sum_2d146 ! 147 !!----------------------------------------------------------------------- 148 ! 149 COMPLEX( wp):: ctmp145 COMPLEX(dp) :: local_sum_2d 146 ! 147 !!----------------------------------------------------------------------- 148 ! 149 COMPLEX(dp):: ctmp 150 150 REAL(wp) :: ztmp 151 151 INTEGER :: ji, jj ! dummy loop indices … … 161 161 DO ji = 1, ipi 162 162 ztmp = ptab(ji,jj) * tmask_i(ji,jj) 163 CALL DDPDD( CMPLX( ztmp, 0.e0, wp ), ctmp )163 CALL DDPDD( CMPLX( ztmp, 0.e0, dp ), ctmp ) 164 164 END DO 165 165 END DO … … 172 172 !!---------------------------------------------------------------------- 173 173 REAL(wp), INTENT(in ) :: ptab(:,:,:) ! array on which operation is applied 174 COMPLEX( wp) :: local_sum_3d175 ! 176 !!----------------------------------------------------------------------- 177 ! 178 COMPLEX( wp):: ctmp174 COMPLEX(dp) :: local_sum_3d 175 ! 176 !!----------------------------------------------------------------------- 177 ! 178 COMPLEX(dp):: ctmp 179 179 REAL(wp) :: ztmp 180 180 INTEGER :: ji, jj, jk ! dummy loop indices … … 192 192 DO ji = 1, ipi 193 193 ztmp = ptab(ji,jj,jk) * tmask_i(ji,jj) 194 CALL DDPDD( CMPLX( ztmp, 0.e0, wp ), ctmp )194 CALL DDPDD( CMPLX( ztmp, 0.e0, dp ), ctmp ) 195 195 END DO 196 196 END DO … … 226 226 ENDIF 227 227 END_2D 228 CALL lbc_lnk( 'lib_fortran', p2d, 'T', 1. )228 CALL lbc_lnk( 'lib_fortran', p2d, 'T', 1.0_wp ) 229 229 IF( nbondi /= -1 ) THEN 230 230 IF( MOD(mig( 1), 3) == 1 ) p2d( 1,:) = p2d( 2,:) … … 243 243 IF( MOD(mjg(jpj-2), 3) == 0 ) p2d(:,jpj-1) = p2d(:, jpj) 244 244 ENDIF 245 CALL lbc_lnk( 'lib_fortran', p2d, 'T', 1. )245 CALL lbc_lnk( 'lib_fortran', p2d, 'T', 1.0_wp ) 246 246 247 247 END SUBROUTINE sum3x3_2d … … 274 274 END_2D 275 275 END DO 276 CALL lbc_lnk( 'lib_fortran', p3d, 'T', 1. )276 CALL lbc_lnk( 'lib_fortran', p3d, 'T', 1.0_wp ) 277 277 IF( nbondi /= -1 ) THEN 278 278 IF( MOD(mig( 1), 3) == 1 ) p3d( 1,:,:) = p3d( 2,:,:) … … 291 291 IF( MOD(mjg(jpj-2), 3) == 0 ) p3d(:,jpj-1,:) = p3d(:, jpj,:) 292 292 ENDIF 293 CALL lbc_lnk( 'lib_fortran', p3d, 'T', 1. )293 CALL lbc_lnk( 'lib_fortran', p3d, 'T', 1.0_wp ) 294 294 295 295 END SUBROUTINE sum3x3_3d … … 313 313 !! Yun HE and Chris H. Q. DING, Journal of Supercomputing 18, 259-277, 2001 314 314 !!---------------------------------------------------------------------- 315 COMPLEX( wp), INTENT(in ) :: ydda316 COMPLEX( wp), INTENT(inout) :: yddb317 ! 318 REAL( wp) :: zerr, zt1, zt2 ! local work variables315 COMPLEX(dp), INTENT(in ) :: ydda 316 COMPLEX(dp), INTENT(inout) :: yddb 317 ! 318 REAL(dp) :: zerr, zt1, zt2 ! local work variables 319 319 !!----------------------------------------------------------------------- 320 320 !
Note: See TracChangeset
for help on using the changeset viewer.