source: branches/GRISLIv3/SOURCES/no_calving.f90 @ 483

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

  implicit none

contains

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

    use module3D_phy, only:calv

    calv(:,:)=0. 

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

    use module3D_phy, only: calv

    calv(:,:)=0. 

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