source: trunk/SOURCES/no_calving.f90 @ 334

!> \file calving_frange.f90
!! Module et routines qui calculent le calving avec la methode de Vincent
!<


!> \namespace module3D_phy
!! Module et routines qui calculent le calving avec la methode de Vincent
!! \author ...
!! \date ...
!! @note recopie direct de icethick5-ant. A revoir en particulier, accroche avec la glace posee
!! @note Used modules
!! @note   - use module3D_phy
!! @todo il faudrait que le calving soit inactif dans les zones ou l epaisseur est imposee
!<

module no_calving

use module3D_phy
implicit none

contains

!---------------------------------------------------------------------------------------
subroutine init_calving


calv(:,:)=0. 

end subroutine init_calving
!---------------------------------------------------------------------------------------
subroutine calving

calv(:,:)=0. 

end subroutine calving
!------------------------------------------------------------------------------------------
end module no_calving