Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/ZDF/zdfphy.F90
- Timestamp:
- 2021-11-26T12:27:56+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/ZDF/zdfphy.F90
r14986 r15540 61 61 62 62 !! * Substitutions 63 # include "single_precision_substitute.h90" 63 64 # include "do_loop_substitute.h90" 64 65 !!---------------------------------------------------------------------- … … 253 254 ! 254 255 INTEGER :: ji, jj, jk ! dummy loop indice 255 REAL( wp), DIMENSION(A2D(nn_hls),jpk) :: zsh2 ! shear production256 REAL(dp), DIMENSION(A2D(nn_hls),jpk) :: zsh2 ! shear production 256 257 !! --------------------------------------------------------------------- 257 258 ! … … 296 297 & zsh2 ) ! ==>> out : shear production 297 298 ELSE 298 CALL zdf_sh2( Kbb, Kmm, avm_k, & ! <<== in299 CALL zdf_sh2( Kbb, Kmm, CASTSP(avm_k), & ! <<== in 299 300 & zsh2 ) ! ==>> out : shear production 300 301 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.