New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
single_precision_substitute.h90 in NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE – NEMO

source: NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/single_precision_substitute.h90 @ 14286

Last change on this file since 14286 was 14220, checked in by mcastril, 3 years ago

Add single_precision_substitute.h90
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.