Changeset 98 for codes/icosagcm/trunk/src/caldyn_adv.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_adv.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/caldyn_adv.f90

@@ -9 +9 @@
   REAL(rstd),POINTER :: out_z(:,:)
  
-  INTEGER :: itau_out
   
 CONTAINS
   
-  SUBROUTINE init_caldyn(dt)
-  USE icosa
-  IMPLICIT NONE
-    REAL(rstd),INTENT(IN) :: dt
-    REAL(rstd) :: write_period
-    CALL allocate_caldyn
-
-    CALL getin('write_period',write_period)
-    
-    itau_out=INT(write_period/dt)
-    
+  SUBROUTINE init_caldyn
+  USE icosa
+  IMPLICIT NONE
+
     CALL allocate_caldyn