Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DYN/dynspg.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/dynspg.F90
r14072 r14219 50 50 !! * Substitutions 51 51 # include "do_loop_substitute.h90" 52 # include "single_precision_substitute.h90" 52 53 !!---------------------------------------------------------------------- 53 54 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 77 78 INTEGER , INTENT( in ) :: kt ! ocean time-step index 78 79 INTEGER , INTENT( in ) :: Kbb, Kmm, Krhs, Kaa ! ocean time level indices 79 REAL(wp), DIMENSION(jpi,jpj,jpk,jpt), INTENT(inout) :: puu, pvv ! ocean velocities and RHS of momentum equation 80 REAL(wp), DIMENSION(jpi,jpj,jpt) , INTENT(inout) :: pssh, puu_b, pvv_b ! SSH and barotropic velocities at main time levels 80 REAL(dp), DIMENSION(jpi,jpj,jpk,jpt), INTENT(inout) :: puu, pvv ! ocean velocities and RHS of momentum equation 81 REAL(dp), DIMENSION(jpi,jpj,jpt) , INTENT(inout) :: pssh ! SSH 82 REAL(wp), DIMENSION(jpi,jpj,jpt) , INTENT(inout) :: puu_b, pvv_b !barotropic velocities at main time levels 81 83 ! 82 84 INTEGER :: ji, jj, jk ! dummy loop indices … … 84 86 REAL(wp) , DIMENSION(jpi,jpj) :: zpgu, zpgv ! 2D workspace 85 87 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zpice 86 REAL( wp), ALLOCATABLE, DIMENSION(:,:,:) :: ztrdu, ztrdv88 REAL(dp), ALLOCATABLE, DIMENSION(:,:,:) :: ztrdu, ztrdv 87 89 !!---------------------------------------------------------------------- 88 90 ! … … 175 177 ENDIF 176 178 ! ! print mean trends (used for debugging) 177 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1= puu(:,:,:,Krhs), clinfo1=' spg - Ua: ', mask1=umask, &178 & tab3d_2= pvv(:,:,:,Krhs), clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )179 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=CASTWP(puu(:,:,:,Krhs)), clinfo1=' spg - Ua: ', mask1=umask, & 180 & tab3d_2=CASTWP(pvv(:,:,:,Krhs)), clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 179 181 ! 180 182 IF( ln_timing ) CALL timing_stop('dyn_spg')
Note: See TracChangeset
for help on using the changeset viewer.