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

Last change on this file since 421 was 421, checked in by dumas, 13 months ago

Use only in noicethick : compile but not tested
File size: 449 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
16  use module3D_phy, only:time,dtt,isynchro
17
18
19  implicit none
20
21  time=time+dtt
22  isynchro=1
23
24end subroutine noicethick
25
Note: See TracBrowser for help on using the repository browser.