[RegCNET] problem with IFC and terrain

XUNQIANG BI bixq at ictp.it
Wed May 14 09:23:00 CEST 2008 

It seems that the domain.param doesn't match with terrain.f,

I guess that you use the old domain.param (from previous version).

Please double check by yourself.

On Wed, 14 May 2008, suvarchal wrote:

> 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.
>
> _______________________________________________
> RegCNET mailing list
> RegCNET at lists.ictp.it
> https://lists.ictp.it/mailman/listinfo/regcnet
>

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   Dr. Xunqiang Bi         email:bixq at ictp.it
   Earth System Physics Group
   The Abdus Salam ICTP
   Strada Costiera, 11
   P.O. BOX 586, 34100 Trieste, ITALY
   Tel: +39-040-2240302  Fax: +39-040-2240449
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

More information about the RegCNET mailing list