|
Last change
on this file since 5748 was
5712,
checked in by yann meurdesoif, 3 weeks ago
|
|
Convection GPU porting : Compression of active convection point is now optional (default remain to true). For GPU runs, convection is not compressed and is computed on each column. The update is done only for column where convection is active
YM
|
-
Property svn:eol-style set to
native
|
|
File size:
429 bytes
|
| Line | |
|---|
| 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, s2s_is_initialized |
|---|
| 12 | |
|---|
| 13 | CONTAINS |
|---|
| 14 | |
|---|
| 15 | SUBROUTINE s2s_initialize() |
|---|
| 16 | END SUBROUTINE s2s_initialize |
|---|
| 17 | |
|---|
| 18 | FUNCTION s2s_is_initialized() |
|---|
| 19 | IMPLICIT NONE |
|---|
| 20 | LOGICAL :: s2s_is_initialized |
|---|
| 21 | s2s_is_initialized=.FALSE. |
|---|
| 22 | END FUNCTION s2s_is_initialized |
|---|
| 23 | |
|---|
| 24 | END MODULE s2s |
|---|
| 25 | |
|---|
| 26 | #endif |
|---|
Note: See
TracBrowser
for help on using the repository browser.
