[RegCNET] problem with IFC and terrain

[suvarchal]

Hi,
      i have a problem compiling terrain.f using intel fortran compiler 9 in
PREproc/terrain when i do make it gives following error


ifort -tpp7 -g -cm -w -w90 -w95 -convert big_endian -c
-L../../Commons/env/liblinux/ -lnetcdf -Vaxlibterrain.f
fortcom: Error: terrain.f, line 149: This name does not have a type, and must
have an explicit type. [NTYPEC_S]
        call setup(nunitc_s,iy*nsg,jx*nsg,ntypec_s,nveg,iproj,ds/nsg
------------------------------------------^
fortcom: Error: terrain.f, line 218: This name does not have a type, and must
have an explicit type. [LSMTYP]
     &      ,LSMTYP,sanda_s,sandb_s,claya_s,clayb_s,frac_lnd_s,nveg
-------------^
fortcom: Error: terrain.f, line 219: This name does not have a type, and must
have an explicit type. [AERTYP]
     &      ,AERTYP,intext_s,texout_s,frac_tex_s,ntex)
-------------^
fortcom: Error: terrain.f, line 261: A substring must be of type CHARACTER.  
[AERTYP]
            if(AERTYP(7:7).eq.'1') then
---------------^
fortcom: Error: terrain.f, line 294: A substring must be of type CHARACTER.  
[AERTYP]
            if(AERTYP(7:7).eq.'1') then
---------------^
fortcom: Error: terrain.f, line 321: This name does not have a type, and must
have an explicit type. [FUDGE_LND_S]
        CALL LNDFUDGE(FUDGE_LND_s,ch_s,lndout_s,htgrid_s,iy*nsg,jx*nsg
----------------------^
fortcom: Error: terrain.f, line 323: A substring must be of type CHARACTER.  
[AERTYP]
        IF(AERTYP(7:7).eq.'1')
-----------^
fortcom: Error: terrain.f, line 324: This name does not have a type, and must
have an explicit type. [FUDGE_TEX_S]
     &  CALL TEXFUDGE(FUDGE_TEX_s,ch_s,texout_s,htgrid_s,iy*nsg,jx*nsg
----------------------^
fortcom: Error: terrain.f, line 476: A substring must be of type CHARACTER.  
[AERTYP]
            if(AERTYP(7:7).eq.'1') then
---------------^
fortcom: Error: terrain.f, line 509: A substring must be of type CHARACTER.  
[AERTYP]
            if(AERTYP(7:7).eq.'1') then
---------------^
fortcom: Error: terrain.f, line 530: This name does not have a type, and must
have an explicit type. [FUDGE_LND]
      CALL LNDFUDGE(FUDGE_LND,ch,lndout,htgrid,iy,jx,LSMTYP,CHAR_LND)
--------------------^
fortcom: Error: terrain.f, line 531: A substring must be of type CHARACTER.  
[AERTYP]
      IF(AERTYP(7:7).eq.'1')
---------^
fortcom: Error: terrain.f, line 532: This name does not have a type, and must
have an explicit type. [FUDGE_TEX]
     &CALL TEXFUDGE(FUDGE_TEX,ch,texout,htgrid,iy,jx,CHAR_TEX)
--------------------^
fortcom: Error: terrain.f, line 558: This name does not have a type, and must
have an explicit type. [NPROC]
      CALL FORMAIN(iy,jx,kz,nsg,ibyte,DATTYP,LSMTYP,AERTYP,NPROC)
-----------------------------------------------------------^
fortcom: Error: terrain.f, line 68: A COMMON block data object must not be an
automatic object.   [FRAC_LND]
      real*4  frac_lnd(iy,jx,nveg),frac_tex(iy,jx,ntex)
--------------^
fortcom: Error: terrain.f, line 68: An automatic object is invalid in a main
program.   [FRAC_LND]
      real*4  frac_lnd(iy,jx,nveg),frac_tex(iy,jx,ntex)
--------------^
fortcom: Error: terrain.f, line 68: A specification expression object must be
a dummy argument, a COMMON block object, or an object accessible through host
or use association   [NVEG]
      real*4  frac_lnd(iy,jx,nveg),frac_tex(iy,jx,ntex)
-----------------------------^
fortcom: Error: terrain.f, line 68: A COMMON block data object must not be an
automatic object.   [FRAC_TEX]
      real*4  frac_lnd(iy,jx,nveg),frac_tex(iy,jx,ntex)
-----------------------------------^
fortcom: Error: terrain.f, line 68: An automatic object is invalid in a main
program.   [FRAC_TEX]
      real*4  frac_lnd(iy,jx,nveg),frac_tex(iy,jx,ntex)
-----------------------------------^
fortcom: Error: terrain.f, line 68: A specification expression object must be
a dummy argument, a COMMON block object, or an object accessible through host
or use association   [NTEX]
      real*4  frac_lnd(iy,jx,nveg),frac_tex(iy,jx,ntex)
--------------------------------------------------^
fortcom: Error: terrain.f, line 79: A COMMON block data object must not be an
automatic object.   [XLAT_S]
      real*4  xlat_s(iy*nsg,jx*nsg),xlon_s(iy*nsg,jx*nsg)
--------------^
fortcom: Error: terrain.f, line 79: An automatic object is invalid in a main
program.   [XLAT_S]
      real*4  xlat_s(iy*nsg,jx*nsg),xlon_s(iy*nsg,jx*nsg)
--------------^
fortcom: Error: terrain.f, line 79: A specification expression object must be
a dummy argument, a COMMON block object, or an object accessible through host
or use association   [NSG]
      real*4  xlat_s(iy*nsg,jx*nsg),xlon_s(iy*nsg,jx*nsg)
------------------------^
fortcom: Error: terrain.f, line 79: A COMMON block data object must not be an
automatic object.   [XLON_S]
      real*4  xlat_s(iy*nsg,jx*nsg),xlon_s(iy*nsg,jx*nsg)
------------------------------------^
fortcom: Error: terrain.f, line 79: An automatic object is invalid in a main
program.   [XLON_S]
      real*4  xlat_s(iy*nsg,jx*nsg),xlon_s(iy*nsg,jx*nsg)
------------------------------------^
fortcom: Error: terrain.f, line 80: A COMMON block data object must not be an
automatic object.   [DLAT_S]
      real*4  dlat_s(iy*nsg,jx*nsg),dlon_s(iy*nsg,jx*nsg)
--------------^
fortcom: Error: terrain.f, line 80: An automatic object is invalid in a main
program.   [DLAT_S]
      real*4  dlat_s(iy*nsg,jx*nsg),dlon_s(iy*nsg,jx*nsg)
--------------^
fortcom: Error: terrain.f, line 80: A COMMON block data object must not be an
automatic object.   [DLON_S]
      real*4  dlat_s(iy*nsg,jx*nsg),dlon_s(iy*nsg,jx*nsg)
------------------------------------^
fortcom: Error: terrain.f, line 80: An automatic object is invalid in a main
program.   [DLON_S]
      real*4  dlat_s(iy*nsg,jx*nsg),dlon_s(iy*nsg,jx*nsg)
------------------------------------^
fortcom: Error: terrain.f, line 81: A COMMON block data object must not be an
automatic object.   [XMAP_S]
      real*4  xmap_s(iy*nsg,jx*nsg),dmap_s(iy*nsg,jx*nsg)
--------------^
fortcom: Severe: Too many errors, exiting
compilation aborted for terrain.f (code 1)
make: *** [terrain.o] Error 1






Has some one got simillar error..? do i have to add any compiler flags etc??
--Suvarchal 



-- 
This message has been scanned for viruses and
dangerous content by MailScanner, and is
believed to be clean.