ROMS on SGI Origin 2000

Report or discuss software problems and other woes

Moderators: arango, robertson

Post Reply
Message
Author
black

ROMS on SGI Origin 2000

#1 Unread post by black »

I am trying to compile ROMS 2.2 on an SGI Origin 2000. I keep getting the error
'This Hollerith constant is longer than 256 bits.' from module 'set_2dfld_mod' in the file 'set_2dfld.f90'.
I have tried to compile using both 32 and 64 bits setups but I get the same error. Any suggestions?

yildirim

ROMS and SGI compiling problem

#2 Unread post by yildirim »

Hi,

I have the same problem on compilation of ROMS 2.2 on SGI, the error is like that


f90 -c -mips4 -u -TENV:X=3 -64 -O3 -OPT:Olimit=4038 set_2dfld.f90

MODULE set_2dfld_mod
^
f90-855 f90: ERROR SET_2DFLD_MOD, File = set_2dfld.f90, Line = 1, Column = 14
The compiler has detected errors in module "SET_2DFLD_MOD". No module information file will be created for this module.

fac1=ANINT(Tintrp(it2,ifield,ng)-time(ng),r8)
^
f90-1133 f90: ERROR SET_2DFLD_TILE, File = set_2dfld.f90, Line = 89, Column = 12
This Hollerith constant is longer than 256 bits.
^
f90-130 f90: ERROR SET_2DFLD_TILE, File = set_2dfld.f90, Line = 89, Column = 49
The kind type parameter value 8 is not valid for type typeless.

fac2=ANINT(time(ng)-Tintrp(it1,ifield,ng),r8)
^
f90-1133 f90: ERROR SET_2DFLD_TILE, File = set_2dfld.f90, Line = 90, Column = 12
This Hollerith constant is longer than 256 bits.
^
f90-130 f90: ERROR SET_2DFLD_TILE, File = set_2dfld.f90, Line = 90, Column = 49
The kind type parameter value 8 is not valid for type typeless.




I went back to the source file on line 89

fac1=ANINT(Tintrp(it2,ifield,ng)-time(ng),r8)
fac2=ANINT(time(ng)-Tintrp(it1,ifield,ng),r8)

ANINT is intrincis rounding function, its usage is like this

result = ANINT(a, kind)

However, it is correctly used, there is still some problem withd kind. But, "kind" usage is optional, I think that it will work out most of cases , so, I advise that it should be used without specifying kind option.

If you go these line and remove kind (r8) as follows

fac1=ANINT(Tintrp(it2,ifield,ng)-time(ng))
fac2=ANINT(time(ng)-Tintrp(it1,ifield,ng))


this will work out, compilation keep going on for this file but next file (set_3dfld.f90) you would have the same problem, you have to do it again, ....


I am new to ROMS and trying to compile but still not done it,

I hope that I did not give you inaccurate direction,

bye,

Post Reply