Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/DYN/dynadv_ubs.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/DYN/dynadv_ubs.F90
r14986 r15540 27 27 PRIVATE 28 28 29 REAL( wp), PARAMETER :: gamma1 = 1._wp/3._wp ! =1/4 quick ; =1/3 3rd order UBS30 REAL( wp), PARAMETER :: gamma2 = 1._wp/32._wp ! =0 2nd order ; =1/32 4th order centred29 REAL(dp), PARAMETER :: gamma1 = 1._wp/3._wp ! =1/4 quick ; =1/3 3rd order UBS 30 REAL(dp), PARAMETER :: gamma2 = 1._wp/32._wp ! =0 2nd order ; =1/32 4th order centred 31 31 32 32 PUBLIC dyn_adv_ubs ! routine called by step.F90 … … 75 75 ! 76 76 INTEGER :: ji, jj, jk ! dummy loop indices 77 REAL( wp) :: zui, zvj, zfuj, zfvi, zl_u, zl_v ! local scalars77 REAL(dp) :: zui, zvj, zfuj, zfvi, zl_u, zl_v ! local scalars 78 78 REAL(dp), DIMENSION(A2D(nn_hls),jpk) :: zfu_t, zfu_uw 79 REAL( wp), DIMENSION(A2D(nn_hls),jpk) :: zfu_f, zfu79 REAL(dp), DIMENSION(A2D(nn_hls),jpk) :: zfu_f, zfu 80 80 REAL(dp), DIMENSION(A2D(nn_hls),jpk) :: zfv_t, zfv_vw 81 REAL( wp), DIMENSION(A2D(nn_hls),jpk) :: zfv_f, zfv, zfw82 REAL( wp), DIMENSION(A2D(nn_hls),jpk,2) :: zlu_uu, zlu_uv83 REAL( wp), DIMENSION(A2D(nn_hls),jpk,2) :: zlv_vv, zlv_vu81 REAL(dp), DIMENSION(A2D(nn_hls),jpk) :: zfv_f, zfv, zfw 82 REAL(dp), DIMENSION(A2D(nn_hls),jpk,2) :: zlu_uu, zlu_uv 83 REAL(dp), DIMENSION(A2D(nn_hls),jpk,2) :: zlv_vv, zlv_vu 84 84 !!---------------------------------------------------------------------- 85 85 ! … … 250 250 ENDIF 251 251 ! ! Control print 252 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1= CASTWP(puu(:,:,:,Krhs)), clinfo1=' ubs2 adv - Ua: ', mask1=umask, &253 & tab3d_2= CASTWP(pvv(:,:,:,Krhs)), clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )252 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=puu(:,:,:,Krhs), clinfo1=' ubs2 adv - Ua: ', mask1=umask, & 253 & tab3d_2=pvv(:,:,:,Krhs), clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 254 254 ! 255 255 END SUBROUTINE dyn_adv_ubs
Note: See TracChangeset
for help on using the changeset viewer.