source: trunk/SOURCES/MISMIP3D_files/fake-routines-mismip3d_mod.f90 @ 111

! contient des routines vides 

module fake_mismip

use module3d_phy

implicit none

integer :: fake

contains
!____________________________________________________
subroutine initial_heino

if (itracebug.eq.1)  call tracebug(' Entree dans routine fake initial_heino')
fake=1

return
end subroutine initial_heino

!____________________________________________________
 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

!____________________________________________________
subroutine  massb_perturb_Tparam

if (itracebug.eq.1)  call tracebug(' Entree dans routine fake massb_perturb_Tparam  ')
fake=1
end subroutine massb_perturb_Tparam
!____________________________________________________
subroutine massb_anteis_forcage

if (itracebug.eq.1)  call tracebug(' Entree dans routine fake massb_perturb_Tparam  ')
fake=1
end subroutine massb_anteis_forcage

end module fake_mismip