90 |
LOGICAL iAmDoingIO |
LOGICAL iAmDoingIO |
91 |
|
|
92 |
_RL fld2d(1:sNxWh,1:sNyWh,nSx,nSy) |
_RL fld2d(1:sNxWh,1:sNyWh,nSx,nSy) |
|
c global buffers |
|
|
Real*4 fld2d_globuff_r4(sNxWh,gloNyWh) |
|
|
Real*8 fld2d_globuff_r8(sNxWh,gloNyWh) |
|
|
c The corresponding proc buffers are in common blocks |
|
|
c (in MDSIO_BUFF_WH.h) which is needed for multi-threads. |
|
|
c Eventually we could want to also put global buffers in common |
|
|
c blocks in .h (to save memory) but local is fine for now. |
|
93 |
|
|
94 |
c == functions == |
c == functions == |
95 |
INTEGER ILNBLNK |
INTEGER ILNBLNK |