Dear Dave,
thank you for your answer. I have tried but it does not work, anyway. It
seems that I have messed up something with headers of fortran files and
with make file. I will try to fix that during the next days, but if
somebody has a solution I will be the most thankful to hear it.
Goran
On Wed, 2008-03-12 at 18:03 -0600, Dave Allured wrote:
> Gorgan,
>
> I believe that the statement "use netcdf" is misplaced. It should
> be directly below the statement "subroutine write_3d_field", and
> *not* below the module statement. Try that.
>
> Dave Allured
> CU/CIRES Climate Diagnostics Center (CDC)
> http://cires.colorado.edu/science/centers/cdc/
> NOAA/ESRL/PSD, Climate Analysis Branch (CAB)
> http://www.cdc.noaa.gov/
>
> Goran Georgievski wrote:
> > Hello,
> >
> > I have some read/write modules written in free form fortran (Fortran 90)
> > and I have some fortran77 code that writes standard fortran binary
> > files. However, I would prefer to have output in netcdf format. The
> > question is if I can compile and link, fortran90 netcdf write module
> > with the fortran 77 code. The platform that I am working on is Linux
> > with Intel Fortran Compiler 8.1 and netcdf library version 3.6.0-p1.
> >
> > ifort compiles the write netcdf module (f90 code), and it compiles the
> > main code (f77) if I comment the lines that calls netcdf write
> > subroutines. When I am trying to compile including these lines, ifort
> > complains that it cannot find the module for writing netcdf. (ERROR in
> > opening the Library module file [WRITE_3D_NETCDF_FIELD])
> >
> > Below are the headers of my netcdf write module and headers of main code
> > that calls subroutine to write netcdf field, and the makefile that
> > compiles everything. If somebody could tell me what I am doing wrong and
> > point me to the solution, I would be the most thankful.
> >
> > Goran
> >
> > ----netcdf write module f90 code, write_netcdf_3d_field.f90----
> >
> > module write_netcdf_3d_field
> > use netcdf
> >
> > implicit none
> > contains
> >
> > subroutine write_3d_field(nx,x_axis,ny,y_axis,nz,z_axis,field1,
> > netcdf_outfile)
> > ...
> > end subroutine write_3d_field
> > end module write_netcdf_3d_field
> >
> > ----main program f77 code, m_buildCLM201regionen_eval_oro.f----
> >
> >
> > PROGRAM m_buildCLM201regionen
> > USE write_netcdf_3d_field
> > IMPLICIT NONE
> >
> > ....
> >
> > CALL write_3d_field(nxg,x_lon,nyg,y_lat,nzg,z_lev,mask,
> > >netcdf_file)
> >
> > STOP
> > END
> >
> > ---- makefile ----
> >
> > #
> > DEVDIR = /home/goran/clm/regiomask
> > REMDIR = /home/goran/clm/regiomask
> > EXECUTABLE = buildCLM201regionen_eval_oro.exe
> > CF = ifort
> > FFLAGS = -O3
> > NETCDFLIB = -L/usr/local/lib
> > NETCDFINC = -I/usr/local/include
> > #
> > #Objektdateien#########################################################
> > #
> > OBJFILES = m_buildCLM201regionen_eval_oro.o \
> > r_getcoord.o r_regiomask.o t_createmask.o w_regiomask.o \
> > hnioerr.o write_netcdf_3d_field.o
> > #
> > $(EXECUTABLE): $(OBJFILES)
> > $(CF) -o $(EXECUTABLE) $(OBJFILES) $(NETCDFLIB) -lnetcdf
> > ##
> >
> > m_buildCLM201regionen_eval_oro.o:
> > $(REMDIR)/m_buildCLM201regionen_eval_oro.f ($(CF) $(FFLAGS) -c
> > $(REMDIR)/m_buildCLM201regionen_eval_oro.f
> >
> > r_getcoord.o: $(DEVDIR)/r_getcoord.f
> > ($(CF) $(FFLAGS) -c $(DEVDIR)/r_getcoord.f)
> > r_regiomask.o: $(DEVDIR)/r_regiomask.f
> > ($(CF) $(FFLAGS) -c $(DEVDIR)/r_regiomask.f)
> > t_createmask.o: $(REMDIR)/t_createmask.f
> > ($(CF) $(FFLAGS) -c $(REMDIR)/t_createmask.f)
> > w_regiomask.o: $(DEVDIR)/w_regiomask.f
> > ($(CF) $(FFLAGS) -c $(DEVDIR)/w_regiomask.f)
> > hnioerr.o : $(DEVDIR)/hnioerr.f90
> > ($(CF) $(FFLAGS) -c $(DEVDIR)/hnioerr.f90 $(NETCDFINC))
> > write_netcdf_3d_field.o : $(DEVDIR)/write_netcdf_3d_field.f90
> > ($(CF) $(FFLAGS) -c
> > $(DEVDIR)/write_netcdf_3d_field.f90 $(NETCDFINC))
> >
> >
> >
> > _______________________________________________
> > netcdfgroup mailing list
> > netcdfgroup@xxxxxxxxxxxxxxxx
> > For list information or to unsubscribe, visit:
> > http://www.unidata.ucar.edu/mailing_lists/
>
> _______________________________________________
> netcdfgroup mailing list
> netcdfgroup@xxxxxxxxxxxxxxxx
> For list information or to unsubscribe, visit:
> http://www.unidata.ucar.edu/mailing_lists/
>
