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

! contient des routines vides 

module fake_heino

use module3d_phy

implicit none

integer :: fake

contains
!____________________________________________________
!subroutine bmeltshelf

!cdc if (itracebug.eq.1)  call tracebug(' Heino: entree dans routine fake bmelt')
!fake=1

!return
!end subroutine bmeltshelf

!____________________________________________________
!subroutine init_bmelt
!cdc if (itracebug.eq.1)  call tracebug(' Heino: entree dans routine fake init_bmelt')

!fake=2

!return
!end subroutine init_bmelt

!____________________________________________________
subroutine input_climat_ref

!cdc if (itracebug.eq.1)  call tracebug(' Heino: entree dans routine input_climat')
fake=3

return
end subroutine input_climat_ref

end module fake_heino
!