Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/TRA/trazdf.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/TRA/trazdf.F90
r14200 r14219 40 40 # include "do_loop_substitute.h90" 41 41 # include "domzgr_substitute.h90" 42 # include "single_precision_substitute.h90" 42 43 !!---------------------------------------------------------------------- 43 44 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 55 56 INTEGER , INTENT(in) :: kt ! ocean time-step index 56 57 INTEGER , INTENT(in) :: Kbb, Kmm, Krhs, Kaa ! time level indices 57 REAL( wp), DIMENSION(jpi,jpj,jpk,jpts,jpt), INTENT(inout) :: pts ! active tracers and RHS of tracer equation58 REAL(dp), DIMENSION(jpi,jpj,jpk,jpts,jpt), INTENT(inout) :: pts ! active tracers and RHS of tracer equation 58 59 ! 59 60 INTEGER :: ji, jj, jk ! Dummy loop indices … … 109 110 ENDIF 110 111 ! ! print mean trends (used for debugging) 111 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1= pts(:,:,:,jp_tem,Kaa), clinfo1=' zdf - Ta: ', mask1=tmask, &112 & tab3d_2= pts(:,:,:,jp_sal,Kaa), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' )112 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=CASTWP(pts(:,:,:,jp_tem,Kaa)), clinfo1=' zdf - Ta: ', mask1=tmask, & 113 & tab3d_2=CASTWP(pts(:,:,:,jp_sal,Kaa)), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 113 114 ! 114 115 IF( ln_timing ) CALL timing_stop('tra_zdf') … … 143 144 INTEGER , INTENT(in ) :: kjpt ! number of tracers 144 145 REAL(wp) , INTENT(in ) :: p2dt ! tracer time-step 145 REAL( wp), DIMENSION(jpi,jpj,jpk,kjpt,jpt), INTENT(inout) :: pt ! tracers and RHS of tracer equation146 REAL(dp), DIMENSION(jpi,jpj,jpk,kjpt,jpt), INTENT(inout) :: pt ! tracers and RHS of tracer equation 146 147 ! 147 148 INTEGER :: ji, jj, jk, jn ! dummy loop indices 148 REAL( wp) :: zrhs, zzwi, zzws ! local scalars149 REAL( wp), DIMENSION(A2D(nn_hls),jpk) :: zwi, zwt, zwd, zws149 REAL(dp) :: zrhs, zzwi, zzws ! local scalars 150 REAL(dp), DIMENSION(A2D(nn_hls),jpk) :: zwi, zwt, zwd, zws 150 151 !!--------------------------------------------------------------------- 151 152 ! … … 264 265 !!============================================================================== 265 266 END MODULE trazdf 267
Note: See TracChangeset
for help on using the changeset viewer.