|
Last change
on this file since 5182 was
5182,
checked in by abarral, 10 days ago
|
|
(WIP) Replace REPROBUS CPP KEY by logical
properly name modules
|
|
File size:
348 bytes
|
| Line | |
|---|
| 1 | ! reprobus SUBROUTINE wrappers |
|---|
| 2 | |
|---|
| 3 | MODULE lmdz_reprobus_wrappers |
|---|
| 4 | |
|---|
| 5 | #ifdef REPROBUS |
|---|
| 6 | USE CHEM_REP, ONLY: init_chem_rep_trac |
|---|
| 7 | #else |
|---|
| 8 | |
|---|
| 9 | CONTAINS |
|---|
| 10 | |
|---|
| 11 | SUBROUTINE lmdz_reprobus_wrapper_abort |
|---|
| 12 | STOP 'REPROBUS key undefined, must not enter in REPROBUS wrappers ==> aborting' |
|---|
| 13 | END SUBROUTINE lmdz_reprobus_wrapper_abort |
|---|
| 14 | |
|---|
| 15 | #endif |
|---|
| 16 | END MODULE lmdz_reprobus_wrappers |
|---|
Note: See
TracBrowser
for help on using the repository browser.
