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 |
Line | |
---|---|
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.