null

Message Boards

delwaq1.f: Fortran runtime error on line 548 (examples 06 and 10)

Riccardo Navarra, modified 2 Years ago.

delwaq1.f: Fortran runtime error on line 548 (examples 06 and 10)

Youngling Posts: 1 Join Date: 2/10/17 Recent Posts
Hi,
I've complied "successfully" delft3d on xenial 64bit. II got errors on delwaq examples. Others work fine.

The error on 06_delwaq and 10_delwaq-part-tracer is:

At line 548 of file delwaq1.f
Fortran runtime error: Inquire statement identifies an internal file

Any help will be appreciated.

RIccardo

**update**
About 06_delwaq I commented lines 548 549 551 in delwaq1.f:

!
! Close all open LUN files
!
do i = 1, nlun
!!!! inquire (unit=lun(i), opened=unitop)
!!!! if (unitop) then
close (unit = lun(i))
!!!! endif
end do

About 10_delwaq-part-tracer, now I got this error:

At line 136 of file rdpart.f90 (unit = 902)
Fortran runtime error: File already opened in another unit
Yahia Kala, modified 1 Year ago.

RE: delwaq1.f: Fortran runtime error on line 548 (examples 06 and 10)

Youngling Posts: 12 Join Date: 7/11/13 Recent Posts
I get the same error on Example 10. Everything else runs fine. I compiled tag 7545 on Ubuntu 16.04 64bit (which was an ordeal in itself).
MB
Mariana Bruning, modified 1 Year ago.

RE: delwaq1.f: Fortran runtime error on line 548 (examples 06 and 10)

Youngling Posts: 5 Join Date: 3/28/17 Recent Posts
I get the same error too.
Please any advice to solve it, will be very helpful.

Mariana
Michelle Jeuken, modified 1 Year ago.

RE: delwaq1.f: Fortran runtime error on line 548 (examples 06 and 10)

Jedi Knight Posts: 156 Join Date: 1/21/13 Recent Posts
Hi All,

Sorry for the late reply to this, it in not on the standard Delwaq forum that I follow.

Both errors stem from the fact that apparently the compiler you are using is a bit more stringent on opening files that the ones we use. The first issue with delwaq1/ 06_delwaq was resolved in revision 7205. Apparently you are not allowed to inquire internal files. I added a catch for any error situations.

I'll have to look into the rdpart issue later.

Michelle
Michelle Jeuken, modified 1 Year ago.

RE: delwaq1.f: Fortran runtime error on line 548 (examples 06 and 10)

Jedi Knight Posts: 156 Join Date: 1/21/13 Recent Posts
As for the issue with example 10, I've committed a fix to revision 8067 for the rdpart code. However, the current trunk might not be stable. If you want to use the WAQ_PART combo, you can apply the fix to the latest tagged version.
MB
Mariana Bruning, modified 1 Year ago.

RE: delwaq1.f: Fortran runtime error on line 548 (examples 06 and 10)

Youngling Posts: 5 Join Date: 3/28/17 Recent Posts
Thank you Michelle,


However I still have doubts about the implementation of this new revisions.
Do I have to re-install Delft3D? If I have to, Where are the new folders? (https://svn.oss.deltares.nl/repos/delft3d/trunk/src/)?
If I don't need to re-install, Do I have to check any files and download them to my folders? Which ones of them?


Thank you,

Mariana.



EDIT...

I succesfully compiled Delft (again).
I used Revision 8114. Tag 7545 https://svn.oss.deltares.nl/repos/delft3d/tags/7545/. Although, I had to correct the path of mpi installation at the build.sh file (I installed Delft in Linux).

Now it runs del_waq properly.


Best regards.
Mariana
Michelle Jeuken, modified 1 Year ago.

RE: delwaq1.f: Fortran runtime error on line 548 (examples 06 and 10)

Jedi Knight Posts: 156 Join Date: 1/21/13 Recent Posts
Hi,

The fix is in only one file: https://svn.oss.deltares.nl/repos/delft3d/trunk/src/engines_gpl/part/packages/io_f/src/rdpart.f90. We are still reorganizing the way the executables are put into a tree, and the menu needs to be adapted for that. To use the old file structure, but include the fix for the issue with example 10, download the latest tagged version of the code:

https://svn.oss.deltares.nl/repos/delft3d/tags/7545

Patch (overwrite) the file src/engines_gpl/part/packages/io_f/src/rdpart.f90 with the latest version from the trunk here (log into the website with your svn credentials):

https://svn.oss.deltares.nl/repos/delft3d/trunk/src/engines_gpl/part/packages/io_f/src/rdpart.f90

And then build the code again.

Michelle