open TELEMAC-MASCARET The mathematically superior suite of solvers

Hello,

I'm trying to repeat a simulation which was done several years ago. Now I want to move it to Telemac V6.1 and I have one problem while compiling the program. Here is the information:

=================================

*** TELEMAC2D ON STATION ***

*** Interactive mode ***

*** RELEASE v6p1 ***

________________________________________________________
Steering file : steeringfile.txt
________________________________________________________

________________________________________________________
Starting execution: telemac2d.bat
________________________________________________________
- FORTRAN FILE : ctelev_7tidcon.f
______________________________________________________________________________
*** COMPILATION ***

ifort -c -O2 -convert big_endian -I/user/leuven/304/vsc30459/TELEMAC/v6p1/te lemac2d/tel2d_v6p1/intel_64_11 -I/user/leuven/304/vsc30459/TELEMAC/v6p1/sisyphe/ sisyphe_v6p1/intel_64_11 -I/user/leuven/304/vsc30459/TELEMAC/v6p1/tomawac/toma_v 6p1/intel_64_11 -I/user/leuven/304/vsc30459/TELEMAC/v6p1/bief/bief_v6p1/intel_64 _11 -I/user/leuven/304/vsc30459/TELEMAC/v6p1/special/special_v6p1/intel_64_11 -I /user/leuven/304/vsc30459/TELEMAC/v6p1/damocles/damo_v6p1/intel_64_11 -I/user/le uven/304/vsc30459/TELEMAC/v6p1/paravoid/paravoid_v6p1/intel_64_11 t2dfort.f
t2dfort.f(1095): error #7836: If the actual argument is scalar, the correspondin g dummy argument shall be scalar unless the actual argument is an element of an array that is not an assumed-shape or pointer array, or a substring of such an e lement. [X]
CALL MAXI(XMAX,IMAX,T9%R(1),NPOIN)

---

^
compilation aborted for t2dfort.f (code 1)
ERROR : COMPILATION
==========================================

Is there anyway to correct this error? Thanks!

Hi
MAXI is a function and it looks like it was no declared in your fortran file.

Hope this helps

Hi,
I saw it was declared in the fortran file "bief.f". In my fortran file I have the line "USE BIEF". Is it OK?

Hi
I didn't take care that maxi already exixt in bief library.

In fact your error id in the MAXI Call, because T9%R(1) is a scalar and not a vector. Try with only T9%R and it should works

Hope this helps

Thank you very much!
It works now!

Hi,

I'm working on another case now and again I have one problem about the function TR. In the TelemacV6.1 the function TR is declared as:

TR( INTEGER,intent(in) I, INTEGER,intent(in) ITRAC, INTEGER, intent(in) N, INTEGER,intent(inout) IERR)

But in our old simulation case, the old TR function only has three arguments:

Z = TR(NUMLIQ(K),NBOR(K),IERR)

What is the meaning of ITRAC and how to deal with the missing argument?

Thanks again!

And the error message says:

t2dfort.f(765): error #6631: A non-optional actual argument must be present when invoking a procedure with an explicit interface. [IERR]
Z = TR(NUMLIQ(K),NBOR(K),IERR)

---

^
compilation aborted for t2dfort.f (code 1)

Thanks!

Hi
On old telemac version, you could only have 1 tracer. but since 6.0, you could have more than 1 and so Itrac represent the Tracer number.

Start from the new version of subroutine bord.f and adapt with you own old programmation. Don't try to modify your old program in order to allow it to run with version 6.1.

Hope this helps

Thanks!

Hello,

Yes, in old Windows versions, the Compaq Visual Fortran requested to have all %R changed into %R(1) in subroutines arguments, to avoid a copy of arguments instead of passing only the memory address (this was probably a compiler bug, or at least a considerable slow down of runs). This compiler had thus specific sources and this is probably such sources that you now try to adapt to version 6.1.

With best regards,

Jean-Michel Hervouet