Changeset 104 for trunk/SOURCES/New-remplimat/remplimat-shelves-tabTu.f90

Timestamp:

05/09/17 10:20:19 (7 years ago)

Author:

aquiquet

Message:

Schoof: back force in x/y from ramollos.

File:

• trunk/SOURCES/New-remplimat/remplimat-shelves-tabTu.f90 (modified) (2 diffs)

trunk/SOURCES/New-remplimat/remplimat-shelves-tabTu.f90

@@ -61 +61 @@
 integer :: ifail_L2         ! pour les rapports d'erreur
   
-real, dimension(nx1:nx2,ny1:ny2),intent(inout)  :: uxprec    ! vitesse en entree routine
-real, dimension(nx1:nx2,ny1:ny2),intent(inout)  :: uyprec    ! vitesse en entree routine
+real, dimension(nx1:nx2,ny1:ny2),intent(in)  :: uxprec    ! vitesse en entree routine
+real, dimension(nx1:nx2,ny1:ny2),intent(in)  :: uyprec    ! vitesse en entree routine
 
 ! masques vitesses.
@@ -76 +76 @@
   
 
-integer, dimension(nx1:nx2,ny1:ny2),intent(inout)  :: imx    ! masque en entree routine
-integer, dimension(nx1:nx2,ny1:ny2),intent(inout)  :: imy    ! masque en entree routine
+integer, dimension(nx1:nx2,ny1:ny2),intent(in)  :: imx    ! masque en entree routine
+integer, dimension(nx1:nx2,ny1:ny2),intent(in)  :: imy    ! masque en entree routine