Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/DYN/dynzad.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/dynzad.F90
r14986 r15540 60 60 ! 61 61 INTEGER :: ji, jj, jk ! dummy loop indices 62 REAL( wp) :: zua, zva ! local scalars62 REAL(dp) :: zua, zva ! local scalars 63 63 REAL(wp), DIMENSION(A2D(nn_hls)) :: zww 64 64 REAL(wp), DIMENSION(A2D(nn_hls),jpk) :: zwuw, zwvw … … 119 119 ENDIF 120 120 ! ! Control print 121 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1= CASTWP(puu(:,:,:,Krhs)), clinfo1=' zad - Ua: ', mask1=umask, &122 & tab3d_2= CASTWP(pvv(:,:,:,Krhs)), clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )121 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=puu(:,:,:,Krhs), clinfo1=' zad - Ua: ', mask1=umask, & 122 & tab3d_2=pvv(:,:,:,Krhs), clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 123 123 ! 124 124 IF( ln_timing ) CALL timing_stop('dyn_zad')
Note: See TracChangeset
for help on using the changeset viewer.