Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DYN/dynvor.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/dynvor.F90
r14200 r14219 96 96 # include "do_loop_substitute.h90" 97 97 # include "domzgr_substitute.h90" 98 # include "single_precision_substitute.h90" 98 99 99 100 !!---------------------------------------------------------------------- … … 116 117 INTEGER , INTENT( in ) :: kt ! ocean time-step index 117 118 INTEGER , INTENT( in ) :: Kmm, Krhs ! ocean time level indices 118 REAL( wp), DIMENSION(jpi,jpj,jpk,jpt), INTENT(inout) :: puu, pvv ! ocean velocity field and RHS of momentum equation119 ! 120 REAL( wp), ALLOCATABLE, DIMENSION(:,:,:) :: ztrdu, ztrdv119 REAL(dp), DIMENSION(jpi,jpj,jpk,jpt), INTENT(inout) :: puu, pvv ! ocean velocity field and RHS of momentum equation 120 ! 121 REAL(dp), ALLOCATABLE, DIMENSION(:,:,:) :: ztrdu, ztrdv 121 122 !!---------------------------------------------------------------------- 122 123 ! … … 206 207 ! 207 208 ! ! print sum trends (used for debugging) 208 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1= puu(:,:,:,Krhs), clinfo1=' vor - Ua: ', mask1=umask, &209 & tab3d_2= pvv(:,:,:,Krhs), clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )209 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=CASTWP(puu(:,:,:,Krhs)), clinfo1=' vor - Ua: ', mask1=umask, & 210 & tab3d_2=CASTWP(pvv(:,:,:,Krhs)), clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 210 211 ! 211 212 IF( ln_timing ) CALL timing_stop('dyn_vor') … … 235 236 INTEGER , INTENT(in ) :: Kmm ! ocean time level index 236 237 INTEGER , INTENT(in ) :: kvor ! total, planetary, relative, or metric 237 REAL( wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu, pv ! now velocities238 REAL( wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu_rhs, pv_rhs ! total v-trend238 REAL(dp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu, pv ! now velocities 239 REAL(dp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu_rhs, pv_rhs ! total v-trend 239 240 ! 240 241 INTEGER :: ji, jj, jk ! dummy loop indices … … 351 352 INTEGER , INTENT(in ) :: Kmm ! ocean time level index 352 353 INTEGER , INTENT(in ) :: kvor ! total, planetary, relative, or metric 353 REAL( wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu, pv ! now velocities354 REAL( wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu_rhs, pv_rhs ! total v-trend354 REAL(dp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu, pv ! now velocities 355 REAL(dp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu_rhs, pv_rhs ! total v-trend 355 356 ! 356 357 INTEGER :: ji, jj, jk ! dummy loop indices … … 478 479 INTEGER , INTENT(in ) :: Kmm ! ocean time level index 479 480 INTEGER , INTENT(in ) :: kvor ! total, planetary, relative, or metric 480 REAL( wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu, pv ! now velocities481 REAL( wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu_rhs, pv_rhs ! total v-trend481 REAL(dp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu, pv ! now velocities 482 REAL(dp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu_rhs, pv_rhs ! total v-trend 482 483 ! 483 484 INTEGER :: ji, jj, jk ! dummy loop indices … … 602 603 INTEGER , INTENT(in ) :: Kmm ! ocean time level index 603 604 INTEGER , INTENT(in ) :: kvor ! total, planetary, relative, or metric 604 REAL( wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu, pv ! now velocities605 REAL( wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu_rhs, pv_rhs ! total v-trend605 REAL(dp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu, pv ! now velocities 606 REAL(dp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu_rhs, pv_rhs ! total v-trend 606 607 ! 607 608 INTEGER :: ji, jj, jk ! dummy loop indices … … 751 752 INTEGER , INTENT(in ) :: Kmm ! ocean time level index 752 753 INTEGER , INTENT(in ) :: kvor ! total, planetary, relative, or metric 753 REAL( wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu, pv ! now velocities754 REAL( wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu_rhs, pv_rhs ! total v-trend754 REAL(dp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu, pv ! now velocities 755 REAL(dp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pu_rhs, pv_rhs ! total v-trend 755 756 ! 756 757 INTEGER :: ji, jj, jk ! dummy loop indices
Note: See TracChangeset
for help on using the changeset viewer.