Changeset 98 for codes/icosagcm/trunk/src/timeloop_sw.f90

Timestamp:

08/04/12 01:10:06 (12 years ago)

Author:

ymipsl

Message:

Put time variable : dt, itaumax, write_period, itau_out in the time module

YM

File:

• codes/icosagcm/trunk/src/timeloop_sw.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/timeloop_sw.f90

@@ -22 +22 @@
   REAL(rstd),POINTER :: dh(:), dhm1(:), dhm2(:)
   REAL(rstd),POINTER :: du(:), dum1(:), dum2(:)
-  REAL(rstd) :: dt
   INTEGER :: ind
   INTEGER :: it,i,j,n
   INTEGER :: scheme
   INTEGER :: matsuno_period
-  INTEGER :: itaumax
   
 
-  dt=90.
-  CALL getin('dt',dt)
-
-  itaumax=100
-  CALL getin('itaumax',itaumax)
   
   scheme=leapfrog_matsuno
@@ -60 +53 @@
 
   CALL allocate_caldyn
-  CALL init_dissip(dt)
+  CALL init_dissip
 
   CALL etat0_williamson(f_h,f_u)