source: branches/GRISLIv3/SOURCES/no-icethick.f90 @ 443

Last change on this file since 443 was 423, checked in by dumas, 15 months ago

Use only in no-icethick, no_rsl, no_sliding, no_spinup and notracer
File size: 447 bytes
Line 
1!> \file no-icethick.f90
2!! Pour faire tourner le modele sans variations d'epaisseur
3!<
4
5!> SUBROUTINE: noicethick
6!! \author Catherine
7!! \date janvier 2005
8!! @note Cette routine permet de faire tourner le modele sans variations d'epaisseur
9!! @note Used modules:
10!! @note    - use module3D_phy
11!!
12!<
13subroutine noicethick   
14
15  use module3D_phy, only:time,dtt,isynchro
16
17  implicit none
18
19  time=time+dtt
20  isynchro=1
21
22end subroutine noicethick
23
Note: See TracBrowser for help on using the repository browser.