Changeset 13221
- Timestamp:
- 2020-07-02T14:52:26+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/OCE/LBC/mpp_lbc_north_icb_generic.h90
r12632 r13221 49 49 & znorthgloio_e(jpimax, 1-kextj:ipj+kextj,jpni) ) 50 50 ! 51 ztab_e(:,:) = 0._PRECISION 52 znorthloc_e(:,:) = 0._PRECISION 51 # if defined SINGLE_PRECISION 52 ztab_e(:,:) = 0._sp 53 znorthloc_e(:,:) = 0._sp 54 # else 55 ztab_e(:,:) = 0._dp 56 znorthloc_e(:,:) = 0._dp 57 # endif 53 58 ! 54 59 ij = 1 - kextj
Note: See TracChangeset
for help on using the changeset viewer.