!> \file fake-routines-ant_mod.f90 !! Module qui contient des routines vides !< !> \namespace fake_ant !! Module qui contient des routines vides !! \author ... !! \date ... !! @note Used module !! @note - use module3D_phy !< module fake_ant use module3d_phy use runparam, only: itracebug 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 track_change_T if (itracebug.eq.1) call tracebug(' Entree dans routine fake track_change_T') fake=1 return end subroutine track_change_T end module fake_ant !