Problem in compiling iowrf

[ehsan.e]

I am trying to compile iowrfin linux machine with intel fortran compiler (ifort). Although I follow the WRF tutorial and I do have NetDCF, but I receive too many errors. Any body has worked with this code? It seems it is not a final code and the code itself has many errors.

Command line I use for our machine:
ifort iowrf.f -L/home/opt/netcdf/gnu44/lib -lnetcdf -lm -I/home/opt/netcdf/gnu44/lib/ -Mfree -o iowrf

Error message:
ifort: command line warning #10006: ignoring unknown option '-Mfree'
iowrf.f(110): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: ( * ) :: , + . - % : . ** / // .LT. < .LE. <= .EQ. == .NE. ...
call read_args(input_file,option,iratio,box_start,box_end,bit64,debug)
----------------------------------------------------------------------------^
iowrf.f(151): error #5082: Syntax error, found ''' when expecting one of: ( <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> <INTEGER_CONSTANT> ...
write(6,'(4(A,i4))') ' ndims = ',ndims,' nvars = ',nvars,' ngatts = ',ngatts, &
--------------------------------------------------------------------^
iowrf.f(152): error #5082: Syntax error, found ',' when expecting one of: (
' nunlimdimid =',nunlimdimid
--------------------------------------^
iowrf.f(164): error #5120: Unterminated character constant
status = nf_get_att_int (ncid, nf_global, 'WEST-EAST_GRID_DIMENSION', iweg)
------------------------------------------------^
iowrf.f(164): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: ) :: , :
status = nf_get_att_int (ncid, nf_global, 'WEST-EAST_GRID_DIMENSION', iweg)
---------------------------------------------------------------------------------^
iowrf.f(165): error #5120: Unterminated character constant
status = nf_get_att_int (ncid, nf_global, 'SOUTH-NORTH_GRID_DIMENSION', isng)
------------------------------------------------^
iowrf.f(165): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: ) :: , :
status = nf_get_att_int (ncid, nf_global, 'SOUTH-NORTH_GRID_DIMENSION', isng)
-----------------------------------------------------------------------------------^
iowrf.f(166): error #5120: Unterminated character constant
status = nf_get_att_int (ncid, nf_global, 'BOTTOM-TOP_GRID_DIMENSION', ibtg)
------------------------------------------------^
iowrf.f(166): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: ) :: , :
status = nf_get_att_int (ncid, nf_global, 'BOTTOM-TOP_GRID_DIMENSION', ibtg)
----------------------------------------------------------------------------------^
iowrf.f(187): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: ( <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> <INTEGER_CONSTANT> ...
if ( box_end(1) .ne. 0 ) jweg = int(box_end(1) - box_start(1)) + 1
--------------------------------------------------------------------------^
iowrf.f(188): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: ( <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> <INTEGER_CONSTANT> ...
if ( box_end(2) .ne. 0 ) jsng = int(box_end(2) - box_start(2)) + 1
--------------------------------------------------------------------------^
iowrf.f(189): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: ( <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> <INTEGER_CONSTANT> ...
if ( box_end(3) .ne. 0 ) jbtg = int(box_end(3) - box_start(3)) + 1
--------------------------------------------------------------------------^
iowrf.f(253): error #5082: Syntax error, found '&' when expecting one of: ( , <END-OF-STATEMENT> ; <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> ...
write(6,'(i4," : ",A," in = ",i4," (out = ",i4,")")') &
----------------------------------------------------------------^
iowrf.f(254): error #5082: Syntax error, found ',' when expecting one of: ( % : . = =>
i,dname(i),dval(i),dval2(i)
-----------------^
iowrf.f(275): error #5082: Syntax error, found '&' when expecting one of: ( , <END-OF-STATEMENT> ; <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> ...
write(6,'(i4," : ",A," in = ",A," (out = ",$)') &
------------------------------------------------------------^
iowrf.f(276): error #5082: Syntax error, found ',' when expecting one of: ( % : . = =>
i,name,cval(1:ilen)
-------------------^
iowrf.f(283): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: <INTEGER_CONSTANT> <POUND_VAL> <INTEGER_KIND_CON> <POUND_BASE>
status = nf_put_att_text(mcid, nf_global, name, ilen,&
----------------------------------------------------------------^
iowrf.f(284): error #5276: Unbalanced parentheses
cval(1:ilen))
--------------------------------^
iowrf.f(284): error #5082: Syntax error, found ')' when expecting one of: ( % . = =>
cval(1:ilen))
--------------------------------^
iowrf.f(289): error #5082: Syntax error, found '&' when expecting one of: ( , <END-OF-STATEMENT> ; <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> ...
write(6,'(i4," : ",A," in = ",i7," (out = ",$)') &
-------------------------------------------------------------^
iowrf.f(290): error #5082: Syntax error, found ',' when expecting one of: ( % : . = =>
i,name,ival
-------------------^
iowrf.f(296): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: <INTEGER_CONSTANT> <POUND_VAL> <INTEGER_KIND_CON> <POUND_BASE>
status = nf_put_att_int(mcid, nf_global, name, itype,&
----------------------------------------------------------------^
iowrf.f(297): error #5276: Unbalanced parentheses
ilen, ival)
------------------------------^
iowrf.f(297): error #5082: Syntax error, found ',' when expecting one of: ( % : . = =>
ilen, ival)
------------------------^
iowrf.f(302): error #5082: Syntax error, found '&' when expecting one of: ( , <END-OF-STATEMENT> ; <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> ...
write(6,'(i4," : ",A," in = ",G18.10E2," (out = ",$)') &
-------------------------------------------------------------------^
(1640): catastrophic error: Too many errors, exiting
compilation aborted for iowrf.f (code 1)

[jimmyc]

The users guide says to compile with the pgf90 compiler. I don't believe the compile options will be identical.

[dcvz]

The first error is usually the one that counts. The rest proceed from that error. It complains about -Mfree. The ifort man page says the correct option is -free. The other options should be OK, but as jimmyc says the pgi and ifort options can be different.