source: trunk/SOURCES/no-icethick.f90 @ 23

Last change on this file since 23 was 4, checked in by dumas, 10 years ago

initial import GRISLI trunk
File size: 438 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
17
18
19  IMPLICIT NONE
20   
21      time=time+dtt
22      isynchro=1
23
24     return
25  end
26
Note: See TracBrowser for help on using the repository browser.