[MITgcm-devel] latest mnc changes break mnc pkg with pgf77 on cray xd

[Ed Hill]

On Fri, 2006-03-10 at 16:25 +0100, Martin Losch wrote:
> Hi Ed,
> 
> you latest changes to the mnc package break the package on our cray  
> xd1 with pgf77 and it is obvious, why:
> e.g., in MNC_CW_READWRITE_RL.F, you have
> MNC_MAX_PATH=500
> and
> CHARACTER*(MNC_MAX_PATH) fname
> but then you try to write to msgbuf (which has a length of 512 only  
> by virtue of MAX_LEN_MBUF=512) e.g,
> write(msgbuf,'(3a')) 'sync for file ''', fname ''' in S/R MNC_CW_RL_W'
> which immediately exceed the maximum length of msgBuf and the runtime  
> system stalls (attempt to write past the end of record).
> 
> Please fix this. I don't know how (other than setting MNC_MAX_PATH to  
> a smaller number (previously MNC_MAX_CHAR = 100?)

Hi Martin,

Sorry about that.  The problem is that some of the "formatted internal
writes" need to have string lengths explicitly specified such as:

  nf = ILNBLNK( fname )
  write(msgbuf,'(3a')) 'sync for file ''', fname(1:nf), ''''

and I'm going through the code now and systematically finding and
correcting all of the above.  Fixes will be checked in in an hour or so.
If I somehow miss any, please let me know!

Ed

-- 
Edward H. Hill III, PhD
office:  MIT Dept. of EAPS;  Rm 54-1424;  77 Massachusetts Ave.
             Cambridge, MA 02139-4307
emails:  eh3 at mit.edu                ed at eh3.com
URLs:    http://web.mit.edu/eh3/    http://eh3.com/
phone:   617-253-0098
fax:     617-253-4464