Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/TRA/traadv_mus.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/traadv_mus.F90
r14072 r14219 48 48 # include "do_loop_substitute.h90" 49 49 # include "domzgr_substitute.h90" 50 # include "single_precision_substitute.h90" 50 51 !!---------------------------------------------------------------------- 51 52 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 83 84 ! TEMP: [tiling] This can be A2D(nn_hls) if using XIOS (subdomain support) 84 85 REAL(wp), DIMENSION(jpi,jpj,jpk ), INTENT(in ) :: pU, pV, pW ! 3 ocean volume flux components 85 REAL( wp), DIMENSION(jpi,jpj,jpk,kjpt,jpt), INTENT(inout) :: pt ! tracers and RHS of tracer equation86 REAL(dp), DIMENSION(jpi,jpj,jpk,kjpt,jpt), INTENT(inout) :: pt ! tracers and RHS of tracer equation 86 87 ! 87 88 INTEGER :: ji, jj, jk, jn ! dummy loop indices … … 185 186 ! ! trend diagnostics 186 187 IF( l_trd ) THEN 187 CALL trd_tra( kt, Kmm, Krhs, cdtype, jn, jptra_xad, zwx, pU, pt(:,:,:,jn,Kbb) )188 CALL trd_tra( kt, Kmm, Krhs, cdtype, jn, jptra_yad, zwy, pV, pt(:,:,:,jn,Kbb) )188 CALL trd_tra( kt, Kmm, Krhs, cdtype, jn, jptra_xad, zwx, pU, CASTWP(pt(:,:,:,jn,Kbb)) ) 189 CALL trd_tra( kt, Kmm, Krhs, cdtype, jn, jptra_yad, zwy, pV, CASTWP(pt(:,:,:,jn,Kbb)) ) 189 190 END IF 190 191 ! ! "Poleward" heat and salt transports … … 237 238 END_3D 238 239 ! ! send trends for diagnostic 239 IF( l_trd ) CALL trd_tra( kt, Kmm, Krhs, cdtype, jn, jptra_zad, zwx, pW, pt(:,:,:,jn,Kbb) )240 IF( l_trd ) CALL trd_tra( kt, Kmm, Krhs, cdtype, jn, jptra_zad, zwx, pW, CASTWP(pt(:,:,:,jn,Kbb)) ) 240 241 ! 241 242 END DO ! end of tracer loop … … 245 246 !!====================================================================== 246 247 END MODULE traadv_mus 248
Note: See TracChangeset
for help on using the changeset viewer.