source:
LMDZ6/branches/contrails/libf/phylmd/s2s.F90
@
5495
| Last change on this file since 5495 was 5489, checked in by , 3 weeks ago | |
|---|---|
|
|
| File size: 247 bytes | |
| Rev | Line | |
|---|---|---|
| [5480] | 1 | #ifdef CPP_GPUM |
| 2 | MODULE s2s | |
| 3 | USE s2s_mod | |
| 4 | END MODULE s2s | |
| 5 | #else | |
| 6 | ||
| 7 | ! s2s wrapper | |
| 8 | MODULE s2s | |
| 9 | ||
| 10 | PRIVATE | |
| 11 | PUBLIC s2s_initialize | |
| 12 | ||
| 13 | CONTAINS | |
| 14 | ||
| 15 | SUBROUTINE s2s_initialize() | |
| 16 | END SUBROUTINE s2s_initialize | |
| 17 | ||
| 18 | END MODULE s2s | |
| 19 | ||
| 20 | #endif |
Note: See TracBrowser
for help on using the repository browser.
