Changeset 226

Timestamp:

01/08/19 11:23:16 (5 years ago)

Author:

aquiquet

Message:

Limitation on bmelt for grounded points (at times abnormal values when using Tsai, due to inconsistencies between beta and imposed ice velocity). Proper fix to be implemented: non-linear dragging law

File:

• trunk/SOURCES/bmelt-grounded.f90 (modified) (2 diffs)

trunk/SOURCES/bmelt-grounded.f90

@@ -64 +64 @@
               bmelt(i,j)=0.
            endif temper_gen
+
+           bmelt(i,j)=min(bmelt(i,j),15.0)
+
         endif noflot
 
@@ -69 +72 @@
   end do
 
-
   return
 end subroutine bmelt_grounded