Changeset 12603 for NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/OCE/TRA/traadv_fct.F90
- Timestamp:
- 2020-03-25T16:20:25+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/OCE/TRA/traadv_fct.F90
r12546 r12603 374 374 INTEGER :: ji, jj, jk ! dummy loop indices 375 375 INTEGER :: ikm1 ! local integer 376 REAL( wp) :: zpos, zneg, zbt, za, zb, zc, zbig, zrtrn ! local scalars377 REAL( wp) :: zau, zbu, zcu, zav, zbv, zcv, zup, zdo ! - -378 REAL( wp), DIMENSION(jpi,jpj,jpk) :: zbetup, zbetdo, zbup, zbdo379 !!---------------------------------------------------------------------- 380 ! 381 zbig = 1.e+40_ wp382 zrtrn = 1.e-15_ wp383 zbetup(:,:,:) = 0._ wp ; zbetdo(:,:,:) = 0._wp376 REAL(dp) :: zpos, zneg, zbt, za, zb, zc, zbig, zrtrn ! local scalars 377 REAL(dp) :: zau, zbu, zcu, zav, zbv, zcv, zup, zdo ! - - 378 REAL(dp), DIMENSION(jpi,jpj,jpk) :: zbetup, zbetdo, zbup, zbdo 379 !!---------------------------------------------------------------------- 380 ! 381 zbig = 1.e+40_dp 382 zrtrn = 1.e-15_dp 383 zbetup(:,:,:) = 0._dp ; zbetdo(:,:,:) = 0._dp 384 384 385 385 ! Search local extrema
Note: See TracChangeset
for help on using the changeset viewer.