source:
trunk/NEMO/OPA_SRC/ZDF/zdfddm_substitute.h90
@
96
| Last change on this file since 96 was 3, checked in by opalod, 20 years ago | |
|---|---|
|
|
| File size: 664 bytes | |
| Line | |
|---|---|
| 1 | !!---------------------------------------------------------------------- |
| 2 | !! *** zdfddm_substitute.h90 *** |
| 3 | !!---------------------------------------------------------------------- |
| 4 | !! ** purpose : substitute fsaht. the eddy diffusivity coeff. |
| 5 | !! with a constant or 1D or 2D or 3D array, using CPP macro. |
| 6 | !!---------------------------------------------------------------------- |
| 7 | #if defined key_zdfddm |
| 8 | ! 'key_zdfddm' : avs: 3D array defined in zdfddm module |
| 9 | # define fsavs(i,j,k) avs(i,j,k) |
| 10 | #else |
| 11 | ! Defautl option : avs = avt |
| 12 | # define fsavs(i,j,k) avt(i,j,k) |
| 13 | #endif |
Note: See TracBrowser
for help on using the repository browser.
