Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SOURCES/dragging_hwatermax_0.2_mod.f90

    r4 r70  
    106106               (((hwater(i,j)+hwater(i-1,j))*0.5.gt.hwatstream) & 
    107107               .and..not.flotmx(i,j)) 
    108  
     108                  fleuvemx(i,j)=gzmx(i,j) 
    109109 
    110110          ! calcul du frottement basal (ce bloc etait avant dans neffect) 
    … …  
    130130               (((hwater(i,j)+hwater(i,j-1))*0.5.gt.hwatstream) & 
    131131               .and..not.flotmy(i,j)) 
     132          fleuvemy(i,j)=gzmx(i,j) 
    132133 
    133134          ! calcul du frottement basal (ce bloc etait avant dans neffect) 
Note: See TracChangeset for help on using the changeset viewer.