source: trunk/SOURCES/Hudson_files/fake-dragging-hudson_mod.f90 @ 334

Last change on this file since 334 was 4, checked in by dumas, 10 years ago

initial import GRISLI trunk
File size: 349 bytes
Line 
1module fake_dragging_heino
2! module pour ne pas utiliser de frottement.
3
4use module3D_phy
5
6contains
7
8  subroutine init_dragging
9    write(42,*)'Fake dragging : pas de frottement stream !'
10  end subroutine init_dragging
11
12  subroutine dragging
13    flgzmx(:,:)=.false.
14    flgzmy(:,:)=.false.
15  end subroutine dragging
16
17end module fake_dragging_heino
18
Note: See TracBrowser for help on using the repository browser.