Changeset 77 for branches/iLoveclim/SOURCES/Recul_force_grounding_line

Timestamp:

07/05/16 11:20:52 (8 years ago)

Author:

dumas

Message:

Merge branche iLOVECLIM sur rev 76

Location:

branches/iLoveclim

Files:

• . (modified) (1 prop)
• SOURCES/Recul_force_grounding_line/toy_retreat_mod.f90 (modified) (5 diffs)

branches/iLoveclim/SOURCES/Recul_force_grounding_line/toy_retreat_mod.f90

@@ -115 +115 @@
   use declar_toy_retreat
   implicit none
-  integer                           :: som_voisins  !< pour des tests
+!  integer                           :: som_voisins  !< pour des tests
 
 
@@ -637 +637 @@
   implicit none
 
-  integer                           :: som_voisins  !< pour des tests
+!  integer                           :: som_voisins  !< pour des tests
   real                              :: Hf           !< Hf = 0 si socle > 0 sinon H_float
   real                              :: dyy         ! variable de travail  longueur de la maille en diagonale       
@@ -752 +752 @@
   implicit none
 
-  integer                           :: som_voisins  !< pour des tests
+!  integer                           :: som_voisins  !< pour des tests
 
   ! les nouveaux points a traiter
@@ -873 +873 @@
 integer    :: num_job           ! numero du job
 integer    :: lenrun            ! longueur du run name
-integer    :: lenb              ! longueur du nom de fichier 
-integer    :: pos               ! position d'un sous_string
+!integer    :: lenb              ! longueur du nom de fichier 
+!integer    :: pos               ! position d'un sous_string
 
 real*8, dimension(:,:),   pointer  :: tab         !< tableau 2d real ecrit dans le fichier
 character(len=4)                   :: char_num    ! pour la lecture
 character(len=80)                  :: file_B_test !< file name of the bedrock map to test topo instability
-character(len=80)                  :: file_voisin !< file name of the bedrock map min or max to test topo instability
+!character(len=80)                  :: file_voisin !< file name of the bedrock map min or max to test topo instability
 
 
@@ -1445 +1445 @@
 integer,intent(in)                 :: ii,jj         ! indice du point considere
 
-real                               :: dH_x          ! variable de travail
-real                               :: dH_y          ! variable de travail
+!real                               :: dH_x          ! variable de travail
+!real                               :: dH_y          ! variable de travail
 
 DelHdt_sanity(ii,jj) = 5000.