Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/ZDF/zdfdrg.F90
- Timestamp:
- 2020-12-18T18:52:57+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/ZDF/zdfdrg.F90
r13558 r14219 76 76 # include "do_loop_substitute.h90" 77 77 # include "domzgr_substitute.h90" 78 # include "single_precision_substitute.h90" 78 79 !!---------------------------------------------------------------------- 79 80 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 157 158 INTEGER , INTENT(in ) :: kt ! ocean time-step index 158 159 INTEGER , INTENT(in ) :: Kmm ! time level indices 159 REAL( wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pub, pvb ! the two components of the before velocity160 REAL( wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pua, pva ! the two components of the velocity tendency160 REAL(dp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pub, pvb ! the two components of the before velocity 161 REAL(dp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pua, pva ! the two components of the velocity tendency 161 162 !! 162 163 INTEGER :: ji, jj ! dummy loop indexes … … 164 165 REAL(wp) :: zm1_2dt ! local scalar 165 166 REAL(wp) :: zCdu, zCdv ! - - 166 REAL( wp), DIMENSION(:,:,:), ALLOCATABLE :: ztrdu, ztrdv167 REAL(dp), DIMENSION(:,:,:), ALLOCATABLE :: ztrdu, ztrdv 167 168 !!--------------------------------------------------------------------- 168 169 ! … … 209 210 ENDIF 210 211 ! ! print mean trends (used for debugging) 211 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1= pua, clinfo1=' bfr - Ua: ', mask1=umask, &212 & tab3d_2= pva, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )212 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=CASTWP(pua), clinfo1=' bfr - Ua: ', mask1=umask, & 213 & tab3d_2=CASTWP(pva), clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 213 214 ! 214 215 END SUBROUTINE zdf_drg_exp
Note: See TracChangeset
for help on using the changeset viewer.