--- trunk/phylmd/CV3_routines/cv3_tracer.f 2014/04/25 14:58:31 97 +++ trunk/Sources/phylmd/CV30_routines/cv30_tracer.f 2016/03/16 15:04:46 185 @@ -1,15 +1,15 @@ -module cv3_tracer_m +module cv30_tracer_m implicit none contains - SUBROUTINE cv3_tracer(nloc, len, ncum, nd, na, ment, sij, da, phi) + SUBROUTINE cv30_tracer(nloc, ncum, na, ment, sij, da, phi) implicit none ! Inputs: - integer, intent(in):: ncum, nd, na, nloc, len + integer, intent(in):: ncum, na, nloc real ment(nloc, na, na), sij(nloc, na, na) ! Ouputs: @@ -31,6 +31,6 @@ end do end do - end SUBROUTINE cv3_tracer + end SUBROUTINE cv30_tracer -end module cv3_tracer_m +end module cv30_tracer_m