Changeset 77 for branches/iLoveclim/SOURCES/dragging_hwatermax_0.2_mod.f90
- Timestamp:
- 07/05/16 11:20:52 (8 years ago)
- Location:
- branches/iLoveclim
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/iLoveclim
-
branches/iLoveclim/SOURCES/dragging_hwatermax_0.2_mod.f90
r4 r77 106 106 (((hwater(i,j)+hwater(i-1,j))*0.5.gt.hwatstream) & 107 107 .and..not.flotmx(i,j)) 108 108 fleuvemx(i,j)=gzmx(i,j) 109 109 110 110 ! calcul du frottement basal (ce bloc etait avant dans neffect) … … 130 130 (((hwater(i,j)+hwater(i,j-1))*0.5.gt.hwatstream) & 131 131 .and..not.flotmy(i,j)) 132 fleuvemy(i,j)=gzmx(i,j) 132 133 133 134 ! calcul du frottement basal (ce bloc etait avant dans neffect)
Note: See TracChangeset
for help on using the changeset viewer.