Changeset 180 for trunk/SOURCES/courbures.f90

Timestamp:

02/13/18 16:23:07 (6 years ago)

Author:

aquiquet

Message:

Cleaning-up: unused variables removed

File:

• trunk/SOURCES/courbures.f90 (modified) (1 diff)

trunk/SOURCES/courbures.f90

@@ -39 +39 @@
 parameter (npts=60000)      !< nombre de points a traiter (nx*ny)
 
-
-real,dimension(mnode) :: Z_sg               !< altitude des points de la sous-grille
 real :: dx_ls                               !< pas de la grille dans le moindre carre
-real,dimension(ncoef) :: acoef              !< matrice de coef pour construction 
-integer :: i,j,k,l,pp,iz,jz,iz1,jz1         !< compteurs
+integer :: i,j,k,pp,iz,jz,iz1,jz1         !< compteurs
 real :: x,y                                 !< coordonnees dans la sous-grille
 real :: aaa                                 !< pour le calcul de l'azimut