Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/TRA/traadv_cen_lf.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/TRA/traadv_cen_lf.F90
r14986 r15540 29 29 PUBLIC tra_adv_cen_lf ! called by traadv.F90 30 30 31 REAL( wp) :: r1_6 = 1._wp / 6._wp ! =1/631 REAL(dp) :: r1_6 = 1._wp / 6._wp ! =1/6 32 32 33 33 LOGICAL :: l_trd ! flag to compute trends … … 73 73 ! TEMP: [tiling] This can be A2D(nn_hls) if using XIOS (subdomain support) 74 74 REAL(wp), DIMENSION(jpi,jpj,jpk ), INTENT(in ) :: pU, pV, pW ! 3 ocean volume flux components 75 REAL( wp), DIMENSION(jpi,jpj,jpk,kjpt,jpt), INTENT(inout) :: pt ! tracers and RHS of tracer equation75 REAL(dp), DIMENSION(jpi,jpj,jpk,kjpt,jpt), INTENT(inout) :: pt ! tracers and RHS of tracer equation 76 76 ! 77 77 INTEGER :: ji, jj, jk, jn ! dummy loop indices 78 78 INTEGER :: ierr ! local integer 79 REAL( wp) :: zC2t_u, zC4t_u ! local scalars80 REAL( wp) :: zC2t_v, zC4t_v ! - -81 REAL( wp) :: ztu_im1, ztu_ip1 ! - -82 REAL( wp) :: ztv_jm1, ztv_jp1 ! - -83 REAL( wp), DIMENSION(A2D(nn_hls),jpk) :: zwx, zwy, zwz, ztw79 REAL(dp) :: zC2t_u, zC4t_u ! local scalars 80 REAL(dp) :: zC2t_v, zC4t_v ! - - 81 REAL(dp) :: ztu_im1, ztu_ip1 ! - - 82 REAL(dp) :: ztv_jm1, ztv_jp1 ! - - 83 REAL(dp), DIMENSION(A2D(nn_hls),jpk) :: zwx, zwy, zwz, ztw 84 84 !!---------------------------------------------------------------------- 85 85 !
Note: See TracChangeset
for help on using the changeset viewer.