!> \file no-icethick.f90 !! Pour faire tourner le modele sans variations d'epaisseur !< !> SUBROUTINE: noicethick !! \author Catherine !! \date janvier 2005 !! @note Cette routine permet de faire tourner le modele sans variations d'epaisseur !! @note Used modules: !! @note - use module3D_phy !! !< subroutine noicethick use module3D_phy, only:time,dtt,isynchro implicit none time=time+dtt isynchro=1 end subroutine noicethick