there is a overflow error in debug mode coupling run caused directly by read_fix.f code in WAM.
Now my solution is that I set a paramter (real (kind=kind_io4), parameter :: c4to8=1.0) in subroutine
uninterprez, then on problem line: buff_mult_piecea(i,j) = f(i,j)*c4to8
to change the io8 type of f(i,j) into io4 type of buff_mult_piecea, seems not work yet.
there is a overflow error in debug mode coupling run caused directly by read_fix.f code in WAM. Now my solution is that I set a paramter (real (kind=kind_io4), parameter :: c4to8=1.0) in subroutine uninterprez, then on problem line: buff_mult_piecea(i,j) = f(i,j)*c4to8 to change the io8 type of f(i,j) into io4 type of buff_mult_piecea, seems not work yet.