Changeset 70 for trunk/SOURCES/Draggings_modules/dragging_prescr_beta_nolin_mod.f90

Timestamp:

06/08/16 16:10:26 (8 years ago)

Author:

dumas

Message:

Bug fix in Qprod_icetemp (instability in ice temperature) : slowssa points heat = deformation SIA + sliding. Use fleuvemx and fleuvemy to identifie streams SSA and slow SSA points

File:

• trunk/SOURCES/Draggings_modules/dragging_prescr_beta_nolin_mod.f90 (modified) (1 diff)

trunk/SOURCES/Draggings_modules/dragging_prescr_beta_nolin_mod.f90

@@ -435 +435 @@
     end where
 
-
+        fleuvemx(:,:)=gzmx(:,:)
+        fleuvemy(:,:)=gzmy(:,:)
     
   end subroutine gzm_beta_prescr