source: branches/iLoveclim/SOURCES/Heino_files/fake-routines-Heino_mod.f90 @ 406

!> \file fake-routines-Heino_mod.f90
!! Module qui contient des routines vides
!<

!> \namespace fake_heino
!! Module qui contient des routines vides
!! \author ...
!! \date ...
!! @note Used module
!! @note   - use module3D_phy
!! @note   - use deform_declar
!<

! contient des routines vides 

module fake_heino

use module3d_phy
use deform_declar
implicit none

integer :: fake

contains
!____________________________________________________
subroutine bmeltshelf

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

return
end subroutine bmeltshelf

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

fake=2

return
end subroutine init_bmelt

!____________________________________________________
subroutine input_climat_ref

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

return
end subroutine input_climat_ref

end module fake_heino
!