Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/BDY/bdytra.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/BDY/bdytra.F90
r14986 r15540 28 28 ! Local structure to rearrange tracers data 29 29 TYPE, PUBLIC :: ztrabdy 30 REAL( wp), POINTER, DIMENSION(:,:) :: tra30 REAL(dp), POINTER, DIMENSION(:,:) :: tra 31 31 END TYPE 32 32 … … 152 152 REAL(dp), DIMENSION(jpi,jpj,jpk,jpts,jpt), INTENT(inout) :: pts ! active tracers and RHS of tracer equation 153 153 ! 154 REAL( wp) :: zwgt ! boundary weight155 REAL( wp) :: zta, zsa, ztime154 REAL(dp) :: zwgt ! boundary weight 155 REAL(dp) :: zta, zsa, ztime 156 156 INTEGER :: ib, ik, igrd ! dummy loop indices 157 157 INTEGER :: ii, ij ! 2D addresses
Note: See TracChangeset
for help on using the changeset viewer.