Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DYN/dynatf_qco.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/DYN/dynatf_qco.F90
r14200 r14219 59 59 # include "do_loop_substitute.h90" 60 60 # include "domzgr_substitute.h90" 61 # include "single_precision_substitute.h90" 61 62 !!---------------------------------------------------------------------- 62 63 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 94 95 INTEGER , INTENT(in ) :: kt ! ocean time-step index 95 96 INTEGER , INTENT(in ) :: Kbb, Kmm, Kaa ! before and after time level indices 96 REAL( wp), DIMENSION(jpi,jpj,jpk,jpt), INTENT(inout) :: puu, pvv ! velocities to be time filtered97 REAL(dp), DIMENSION(jpi,jpj,jpk,jpt), INTENT(inout) :: puu, pvv ! velocities to be time filtered 97 98 ! 98 99 INTEGER :: ji, jj, jk ! dummy loop indices … … 100 101 REAL(wp) :: zve3a, zve3n, zve3b, z1_2dt ! - - 101 102 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zue, zve 102 REAL( wp), ALLOCATABLE, DIMENSION(:,:,:) :: zua, zva103 REAL(dp), ALLOCATABLE, DIMENSION(:,:,:) :: zua, zva 103 104 !!---------------------------------------------------------------------- 104 105 ! … … 239 240 ENDIF 240 241 ! 241 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1= puu(:,:,:,Kaa), clinfo1=' nxt - puu(:,:,:,Kaa): ', mask1=umask, &242 & tab3d_2= pvv(:,:,:,Kaa), clinfo2=' pvv(:,:,:,Kaa): ' , mask2=vmask )242 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=CASTWP(puu(:,:,:,Kaa)), clinfo1=' nxt - puu(:,:,:,Kaa): ', mask1=umask, & 243 & tab3d_2=CASTWP(pvv(:,:,:,Kaa)), clinfo2=' pvv(:,:,:,Kaa): ' , mask2=vmask ) 243 244 ! 244 245 IF( ln_dynspg_ts ) DEALLOCATE( zue, zve )
Note: See TracChangeset
for help on using the changeset viewer.