| Revisión | d7356957b097827a1e4669bf61614c2ce387f5d0 (tree) |
|---|---|
| Tiempo | 2022-10-25 19:45:38 |
| Autor | Harald Klimach <harald.klimach@dlr....> |
| Commiter | Harald Klimach |
Moved npoints definition prior its usage.
external/dummy/tem_precice_module.f90 (diff)| @@ -635,9 +635,9 @@ | ||
| 635 | 635 | ! ************************************************************************ ! |
| 636 | 636 | subroutine tem_precice_write_scalar( dataID, posID, npoints, val ) |
| 637 | 637 | ! -------------------------------------------------------------------- ! |
| 638 | + integer, intent(in) :: npoints | |
| 638 | 639 | integer, intent(in) :: dataID |
| 639 | 640 | integer, intent(in) :: posID(npoints) |
| 640 | - integer, intent(in) :: npoints | |
| 641 | 641 | real(kind=rk), intent(in) :: val(npoints) |
| 642 | 642 | ! -------------------------------------------------------------------- ! |
| 643 | 643 | integer(kind=c_int) :: c_dataID |
Fork