Dear JMH,
Thank you for your help, I learned a great deal today. I have managed to setup the subroutine FLOT so that it inserts the floating bodies as desired. However, when the second set of floating bodies is dropped and subroutine DERIVE is called, the computation hangs (like when in an infinite loop) without exiting.
The TDFLO file in the wdir is populated up to the previous listing period, however, only 194 out of 231 are written, which indicates that the floats of one subdomain are missing. The computation is so short that there is no chance so many floats exiting the domain (but some could move between subdomains). So I run the computation with mpi in 1 proc only and then the computation halted with the following error:
NCHARA= 462 NCHDIM= 231
COLLECT_ALG::NCHARA>NCHDIM, INCREASE NCHDIM
MYPID= 0
PLANTE: PROGRAM STOPPED AFTER AN ERROR
I have tracked the trap in streamline.f:
IF(NCHARA.GT.NCHDIM) THEN ! PROBABLY EXAGGERATED
WRITE (LU,*) 'NCHARA=',NCHARA,' NCHDIM=',NCHDIM
WRITE (LU,*) 'COLLECT_CHAR::NCHARA>NCHDIM, INCREASE NCHDIM'
WRITE (LU,*) 'MYPID=',MYPID
CALL PLANTE(1)
STOP
ENDIF
I have noticed the "PROBABLY EXAGGERATED" comment. Is it safe to modify this trap?
Regards,
Costas