Recently,I was trying to compile the forcing package in Fedora 7 . I have modified CFT and LDR in Makefile.Gnu as follows
CFT = gfortran
LDR = gfortran
When I wanted to make it ,the following errors appeared :
Code: Select all
def_info.F: In function ‘def_info’:
def_info.F:158: warning: Function return value not set
gfortran -c -DNO_EXIT -g -O2 def_out.F
gfortran -c -DNO_EXIT -g -O2 def_var.F
gfortran -c -DNO_EXIT -g -O2 get_date.F
In file get_date.F:111
mon=1
1
Error: Symbol 'mon' at (1) has no IMPLICIT type
make: *** [get_date.o] Error 1
Code: Select all
#define sun
Code: Select all
gfortran -c -DNO_EXIT -g -O2 forcing.F
gfortran -c -DNO_EXIT -g -O2 bes1d.F
gfortran -c -DNO_EXIT -g -O2 bes2d.F
gfortran -c -DNO_EXIT -g -O2 cvector.F
gfortran -c -DNO_EXIT -g -O2 crash.F
gfortran -c -DNO_EXIT -g -O2 day_code.F
gfortran -c -DNO_EXIT -g -O2 def_info.F
def_info.F: In function ‘def_info’:
def_info.F:158: warning: Function return value not set
gfortran -c -DNO_EXIT -g -O2 def_out.F
gfortran -c -DNO_EXIT -g -O2 get_date.F
gfortran -c -DNO_EXIT -g -O2 get_grdfld.F
gfortran -c -DNO_EXIT -g -O2 get_grid.F
In file get_grid.F:28
& dimid, dimsiz, i, ncgrdid, ndims, ngatts, nvars, nvatts,
1
Error: Symbol 'ncgrdid' at (1) already has basic type of INTEGER
In file get_grid.F:65
dimid=i
1
Error: Symbol 'dimid' at (1) has no IMPLICIT type
In file get_grid.F:66
status=nf_inq_dim(ncgrdid,dimid,dimnam,dimsiz)
1
Error: Symbol 'dimsiz' at (1) has no IMPLICIT type
In file get_grid.F:64
do i=1,ndims
1
Error: Symbol 'i' at (1) has no IMPLICIT type
In file get_grid.F:71
ldim=lenstr(dimnam)
1
Error: Symbol 'ldim' at (1) has no IMPLICIT type
In file get_grid.F:105
lvar=lenstr(varnam)
1
Error: Symbol 'lvar' at (1) has no IMPLICIT type
In file get_grid.F:47
lstr=lenstr(grdname)
1
Error: Symbol 'lstr' at (1) has no IMPLICIT type
In file get_grid.F:59
status=nf_inq(ncgrdid,ndims,nvars,ngatts,recdim)
1
Error: Symbol 'ndims' at (1) has no IMPLICIT type
In file get_grid.F:102
status=nf_inq_var(ncgrdid,varid,varnam,vartyp,nvdims,vdims,
1
Error: Symbol 'nvdims' at (1) has no IMPLICIT type
In file get_grid.F:59
status=nf_inq(ncgrdid,ndims,nvars,ngatts,recdim)
1
Error: Symbol 'nvars' at (1) has no IMPLICIT type
In file get_grid.F:59
status=nf_inq(ncgrdid,ndims,nvars,ngatts,recdim)
1
Error: Symbol 'ngatts' at (1) has no IMPLICIT type
In file get_grid.F:103
& nvatts)
1
Error: Symbol 'nvatts' at (1) has no IMPLICIT type
In file get_grid.F:59
status=nf_inq(ncgrdid,ndims,nvars,ngatts,recdim)
1
Error: Symbol 'recdim' at (1) has no IMPLICIT type
In file get_grid.F:48
status=nf_open(grdname(1:lstr),nf_nowrite,ncgrdid)
1
Error: Symbol 'status' at (1) has no IMPLICIT type
In file get_grid.F:101
varid=i
1
Error: Symbol 'varid' at (1) has no IMPLICIT type
In file get_grid.F:102
status=nf_inq_var(ncgrdid,varid,varnam,vartyp,nvdims,vdims,
1
Error: Symbol 'vartyp' at (1) has no IMPLICIT type
make: *** [get_grid.o] Error 1
I think it is difficult to use the Fortran codes for the initialization and forcing packages for a new user of ROMS .Does anyone have the matlab scripts to build the forcing package? If anybody can share these matlab scripts,it will greatly lessen the time new users spend on learning ROMS.
Thank you in advance.