|
Last change
on this file since 3567 was
2759,
checked in by aslmd, 2 years ago
|
|
adding unmodified code from WRFV3.0.1.1, expurged from useless data +1M size
|
|
File size:
618 bytes
|
| Line | |
|---|
| 1 | #### This sed script converts !$OMP directives to Cray !csd$ directives #### |
|---|
| 2 | # |
|---|
| 3 | # get rid of single quotes after comments |
|---|
| 4 | # WARNING: This will break if a quoted string is followed by a comment that has |
|---|
| 5 | # a single quote. |
|---|
| 6 | /\!.*'/s/'//g |
|---|
| 7 | # Automatically add cpp __LINE__ and __FILE__ to calls to wrf_error_fatal(). |
|---|
| 8 | s/[Cc][Aa][Ll][Ll] *[Ww][Rr][Ff]_[Ee][Rr][Rr][Oo][Rr]_[Ff][Aa][Tt][Aa][Ll] *(/CALL wrf_error_fatal3 ( __FILE__ , __LINE__ , / |
|---|
| 9 | # convert !$OMP directives to Cray !csd$ directives |
|---|
| 10 | /\!\$[Oo][Mm][Pp]/s/\!\$[Oo][Mm][Pp]/\!csd\$/ |
|---|
| 11 | /\!csd\$.*[Pp][Rr][Ii][Vv][Aa][Tt][Ee]/a\ |
|---|
| 12 | !csd$& schedule(static,1) |
|---|
Note: See
TracBrowser
for help on using the repository browser.
