Appelant |
REAL masque(iip1,jjp1)
REAL mask(iim,jjp1)
…
DO j = 1, jjp1
mask(i,j) = masque(i,j)
ENDDO
…
CALL rugosite(imdep, jmdep, dlon, dlat, champ,
. iim, jjp1, rlonv, rlatu, champint, mask)
|
REAL masque(iim + 1,jjm + 1)
…
CALL rugosite(dlon, dlat, champ, rlonv(:iim), rlatu, champint, &
masque(:iim, :))
|
Appelé |
SUBROUTINE rugosite(imdep, jmdep, xdata, ydata, entree,
. imar, jmar, x, y, sortie, mask)
INTEGER imdep, jmdep
REAL xdata(imdep),ydata(jmdep)
REAL entree(imdep,jmdep)
c
INTEGER imar, jmar
REAL x(imar),y(jmar)
REAL sortie(imar,jmar), mask(imar,jmar)
|
SUBROUTINE rugosite(xdata, ydata, entree, x, y, sortie, mask)
REAL xdata(:),ydata(:)
REAL entree(:,:)
REAL x(:),y(:)
REAL sortie(:,:)
real, intent(in):: mask(:,:)
|