Welcome, Guest
Username: Password: Remember me

TOPIC: Problems compiling princi.f at v6p2 for Telemac3d

Problems compiling princi.f at v6p2 for Telemac3d 12 years 1 month ago #5739

  • pgrover@4dm-inc.com
  • pgrover@4dm-inc.com's Avatar
Hi

I recently downloaded and compiled (using the python approach) v6p2 on my Windows 7 64 bit machine with the Intel Compiler. When I ran my case files that were developed for v6p1, I get the error shown below. I have tracked it down to a problem in my princi.f file which I use to define the elevations of my vertical layers (see the attached file). My princi.f file is based on a template from the TELEMAC examples. Any help/hints or suggestions would be appreciated.

Cheers
Patrick

Loading Options and Configurations
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

... parsing configuration file: C:\opentelemac\v6p2\config\systel.cis-windows7.cfg


Running your CAS file for:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    +> configuration: win7tels
    +> root:          C:\opentelemac\v6p2
    +> version        v6p2


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



Running ke-vt_v6_h6_bc1.cas with telemac3d under c:\Working\Civil850\Channel_38x20mm\15_Levels
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

... reading module dictionary
... running in English with  ke-vt_v6_h6_bc1.cas
 re-writing:  c:\Working\Civil850\Channel_38x20mm\15_Levels\ke-vt_v6_h6_bc1.cas_2012-09-27-20h12min05s\T3DCAS
    copying:  princi_15_levels.f c:\Working\Civil850\Channel_38x20mm\15_Levels\ke-vt_v6_h6_bc1.cas_2012-09-27-20h12min05s\t3dfort.f
    copying:  12dune_ll__1cm_482.conlim c:\Working\Civil850\Channel_38x20mm\15_Levels\ke-vt_v6_h6_bc1.cas_2012-09-27-20h12min05s\T3DCLI
    copying:  polatel_bed_1cm_12dune_482.slf c:\Working\Civil850\Channel_38x20mm\15_Levels\ke-vt_v6_h6_bc1.cas_2012-09-27-20h12min05s\T3DGEO
    copying:  telemac3dv6p2.dico c:\Working\Civil850\Channel_38x20mm\15_Levels\ke-vt_v6_h6_bc1.cas_2012-09-27-20h12min05s\T3DDICO
ifort.exe /c /Ot /iface:cref /iface:nomixed_str_len_arg /nologo /names:uppercase /convert:big_endian /extend_source:132 /include:C:\opentelemac\v6p2\telemac3d\tel3d_v6p2\win7tels /include:C:\opentelemac\v6p2\sisyphe\sisyphe_v6p2\win7tels /include:C:\opentelemac\v6p2\tomawac\toma_v6p2\win7tels /include:C:\opentelemac\v6p2\bief\bief_v6p2\win7tels /include:C:\opentelemac\v6p2\telemac2d\tel2d_v6p2\win
7tels /include:C:\opentelemac\v6p2\damocles\damo_v6p2\win7tels /include:C:\opentelemac\v6p2\mumpsvoid\mumpsvoid_v6p2\win7tels /include:C:\opentelemac\v6p2\paravoid\paravoid_v6p2\win7tels /include:C:\opentelemac\v6p2\special\special_v6p2\win7tels   t3dfort.f
[color=#ffff00]t3dfort.f(110): error #6404: This name does not have a type, and must have an explicit type.   [COTINT]
     *                Z, Z, COTINT , NPOIN2)
----------------------------^
compilation aborted for t3dfort.f (code 1)[/color]
... The following command failed for the reason above
ifort.exe /c /Ot /iface:cref /iface:nomixed_str_len_arg /nologo /names:uppercase /convert:big_endian /extend_source:132 /include:C:\opentelemac\v6p2\telemac3d\tel3d_v6p2\win7tels /include:C:\opentelemac\v6p2\sisyphe\sisyphe_v6p2\win7tels /include:C:\opentelemac\v6p2\tomawac\toma_v6p2\win7tels /include:C:\opentelemac\v6p2\bief\bief_v6p2\win7tels /include:C:\opentelemac\v6p2\telemac2d\tel2d_v6p2\win
7tels /include:C:\opentelemac\v6p2\damocles\damo_v6p2\win7tels /include:C:\opentelemac\v6p2\mumpsvoid\mumpsvoid_v6p2\win7tels /include:C:\opentelemac\v6p2\paravoid\paravoid_v6p2\win7tels /include:C:\opentelemac\v6p2\special\special_v6p2\win7tels   t3dfort.f
Attachments:
The administrator has disabled public write access.

Problems compiling princi.f at v6p2 for Telemac3d 12 years 1 month ago #5740

  • jmhervouet
  • jmhervouet's Avatar
Hello,

Yes, there is now an obsolete section in your subroutine condim.f, just remove the lines :

IF(NPLINT.GE.2) THEN
CALL OV( 'X=C ' , Z((NPLINT-1)*NPOIN2+1 : NPLINT*NPOIN2),
* Z, Z, COTINT , NPOIN2)
ENDIF

which are useless. The reference plane no longer exists, it was a plane with given elevation COTINT, but now all planes can be given with prescribed elevation, it is more general.

With best regards,

Jean-Michel Hervouet
The administrator has disabled public write access.
Moderators: pham

The open TELEMAC-MASCARET template for Joomla!2.5, the HTML 4 version.