Changeset 98 for codes/icosagcm/trunk/src/caldyn_gcm.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/caldyn_gcm.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/caldyn_gcm.f90

@@ -2 +2 @@
   USE icosa
 
-  INTEGER :: itau_out
   TYPE(t_field),POINTER :: f_out_u(:)
   REAL(rstd),POINTER :: out_u(:,:)
@@ -13 +12 @@
 CONTAINS
   
-  SUBROUTINE init_caldyn(dt)
+  SUBROUTINE init_caldyn
     USE icosa
     IMPLICIT NONE
-    REAL(rstd),INTENT(IN) :: dt
-    REAL :: write_period
-    
-    write_period=0
-    CALL getin('write_period',write_period)
-    write_period=write_period/scale_factor
-    itau_out=FLOOR(.5+write_period/dt)
-    PRINT *, 'Output frequency (scaled) set to ',write_period, ' : itau_out = ',itau_out
- 
+    
     CALL allocate_caldyn