Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/DYN/dynadv_cen2.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_cen2.F90
r14986 r15540 54 54 INTEGER :: ji, jj, jk ! dummy loop indices 55 55 REAL(dp), DIMENSION(A2D(nn_hls),jpk) :: zfu_t, zfu_uw 56 REAL( wp), DIMENSION(A2D(nn_hls),jpk) :: zfu_f, zfu56 REAL(dp), DIMENSION(A2D(nn_hls),jpk) :: zfu_f, zfu 57 57 REAL(dp), DIMENSION(A2D(nn_hls),jpk) :: zfv_t, zfv_vw 58 REAL( wp), DIMENSION(A2D(nn_hls),jpk) :: zfv_f, zfv, zfw58 REAL(dp), DIMENSION(A2D(nn_hls),jpk) :: zfv_f, zfv, zfw 59 59 !!---------------------------------------------------------------------- 60 60 ! … … 137 137 ENDIF 138 138 ! ! Control print 139 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1= CASTWP(puu(:,:,:,Krhs)), clinfo1=' cen2 adv - Ua: ', mask1=umask, &140 & tab3d_2= CASTWP(pvv(:,:,:,Krhs)), clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )139 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=puu(:,:,:,Krhs), clinfo1=' cen2 adv - Ua: ', mask1=umask, & 140 & tab3d_2=pvv(:,:,:,Krhs), clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 141 141 ! 142 142 END SUBROUTINE dyn_adv_cen2
Note: See TracChangeset
for help on using the changeset viewer.