the g77 compiler version 3.3.5 using the command

*make -f Makefile.Gnu*

When I try execute the program with

*oa <oa.in*

the system returns:

*Killed*

Then, i decided to investigate some extrange messages i watch at compiling

time. Here is that i found:

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

*A)

According to the unidata manual for the f77 version of the netcdf library at

*http://www.unidata.ucar.edu/software/ne ... f-f77.html*

the function "

*NF_PUT_ATT_TEXT*" is defined by this way:

Code: Select all

```
INTEGER FUNCTION NF_PUT_ATT_TEXT (INTEGER NCID,
INTEGER VARID, CHARACTER*(*) NAME, INTEGER LEN,
CHARACTER*(*) TEXT)
```

Despite, in the file "

**def_oa.F**" there are some calls to this function that

don't follows this prototipe:

-at line 240:

Code: Select all

`status=nf_put_att_text(ncoutid,varid,'units',5,'meter',varid)`

Code: Select all

`status=nf_put_att_text(ncoutid,'nfrq',nf_int,0,0,varid)`

Code: Select all

```
status=nf_put_att_text(ncoutid,lonrid,'field',15,
& 'lon_rho, scalar',rcode)
```

Code: Select all

```
status=nf_put_att_text(ncoutid,ncfldid(n),'field',lstr,
& text(1:lstr),rcode)
```

the type...

what's the way to correct this mismatch?

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

*B)

In same file ("

**def_oa.F**") is used a macro, "n

*f_put_var1_FTYPE*", defined in

the file "

**cppdefs.h**" that in my case is expanded to "

*nf_put_var1_double*".

According to the unidata manual for the f77 version of the netcdf library,

this function is defined like:

Code: Select all

```
INTEGER FUNCTION NF_PUT_VAR1_DOUBLE(INTEGER NCID,
INTEGER VARID, INTEGER INDEX(*), DOUBLE DVAL)
```

**def_oa.F**" this function is used, among others,:

-at line 593:

Code: Select all

`status=nf_put_var1_FTYPE(ncoutid,varid,1,nord)`

Code: Select all

`status=nf_put_var1_FTYPE(ncoutid,varid,1,nfrq)`

*nord*" and "

*nfrq*" are integers defined at the "

**inppar.h**" file

Can we make a cast using the "

*dble()*" function in order to transtale the

integers to doubles?

Perhaps we must use the "

*nf_put_var1_int*" function instead?

--

Thanks for your time...

Ruben