Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.1 by heimbach, Sat Apr 30 16:20:40 2005 UTC | revision 1.2 by cnh, Tue Nov 8 15:53:41 2005 UTC | |
|---|---|---|
| # | Line 64 C local variables | Line 64 C local variables |
| 64 | integer i, j, k, l, js, bi, bj, sp, interp_unit | integer i, j, k, l, js, bi, bj, sp, interp_unit |
| 65 | real*4 global(nx_in,ny_in) | real*4 global(nx_in,ny_in) |
| 66 | ||
| 67 | _BEGIN_MASTER( myThid ) | C _BEGIN_MASTER( myThid ) |
| 68 | ||
| 69 | C check input arguments | C check input arguments |
| 70 | if ( .NOT. (filePrec .EQ. 32) ) | if ( .NOT. (filePrec .EQ. 32) ) |
| # | Line 113 C broadcast to all processes | Line 113 C broadcast to all processes |
| 113 | call MDS_BYTESWAPR4((nx_in+4)*(ny_in+4), arrayin ) | call MDS_BYTESWAPR4((nx_in+4)*(ny_in+4), arrayin ) |
| 114 | #endif /* _BYTESWAPIO */ | #endif /* _BYTESWAPIO */ |
| 115 | ||
| 116 | _END_MASTER( myThid ) | C _END_MASTER( myThid ) |
| 117 | ||
| 118 | END | END |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |