/[MITgcm]/MITgcm/pkg/mdsio/mdsio_read_whalos.F
ViewVC logotype

Diff of /MITgcm/pkg/mdsio/mdsio_read_whalos.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by gforget, Fri Sep 24 18:39:35 2010 UTC revision 1.2 by gforget, Fri Sep 24 23:21:03 2010 UTC
# Line 90  C     gloNyWh :: global sum of sNyWh Line 90  C     gloNyWh :: global sum of sNyWh
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
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22