source:
branches/2017/wrk_OMP_test_for_Silvia/NEMOGCM/NEMO/OPA_SRC/domain_substitute.h90
@
8279
| Last change on this file since 8279 was 8279, checked in by mocavero, 7 years ago | |
|---|---|
| File size: 642 bytes | |
| Line | |
|---|---|
| 1 | !!---------------------------------------------------------------------- |
| 2 | !! *** domhgr_substitute *** |
| 3 | !!---------------------------------------------------------------------- |
| 4 | !! ** purpose : local Sub-Domain: arguments, dimension & semi-column loops |
| 5 | !!---------------------------------------------------------------------- |
| 6 | #define ARG_2D tnldi, tnlei, tnldj, tnlej |
| 7 | |
| 8 | #define WRK_2D tnldi:tnlei,tnldj:tnlej |
| 9 | #define WRK_2De(s,e) tnldi s:tnlei e,tnldj s:tnlej e |
| 10 | |
| 11 | #define WRK_3D tnldi:tnlei,tnldj:tnlej,1:jpk |
| 12 | #define WRK_3De(s,e,t,b) tnldi s:tnlei e,tnldj s:tnlej e,1 t:jpk t |
Note: See TracBrowser
for help on using the repository browser.
