source:
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/single_precision_substitute.h90
@
14220
Last change on this file since 14220 was 14220, checked in by mcastril, 4 years ago | |
---|---|
File size: 146 bytes |
Rev | Line | |
---|---|---|
[14220] | 1 | #if defined key_single |
2 | # define CASTWP(x) REAL(x,wp) | |
3 | # define CASTDP(x) REAL(x,dp) | |
4 | #else | |
5 | # define CASTWP(x) x | |
6 | # define CASTDP(x) x | |
7 | #endif |
Note: See TracBrowser
for help on using the repository browser.