Changeset 14221 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/TRA/traldf_iso.F90
- Timestamp:
- 2020-12-18T20:25:45+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/traldf_iso.F90
r14219 r14221 198 198 ! 199 199 IF( ln_traldf_blp ) THEN ! bilaplacian operator 200 DO_3D( 1, 0, 1, 0, 2, jpkm1 )200 DO_3D( 0, 0, 0, 0, 2, jpkm1 ) 201 201 akz(ji,jj,jk) = 16._wp & 202 202 & * ah_wslp2 (ji,jj,jk) &
Note: See TracChangeset
for help on using the changeset viewer.