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

codes/icosagcm/trunk/src/advect_tracer.f90

@@ -3 +3 @@
   PRIVATE
   INTEGER,PARAMETER::iapp_tracvl= 3
-  REAL(rstd),SAVE :: dt
 
   TYPE(t_field),POINTER :: f_normal(:)
@@ -13 +12 @@
 CONTAINS
 
-  SUBROUTINE init_advect_tracer(dt_in)
+  SUBROUTINE init_advect_tracer
     USE advect_mod
     IMPLICIT NONE
-    REAL(rstd),INTENT(IN) :: dt_in
     REAL(rstd),POINTER :: tangent(:,:)
     REAL(rstd),POINTER :: normal(:,:)
     INTEGER :: ind
 
-    dt=dt_in
     CALL allocate_field(f_normal,field_u,type_real,3)
     CALL allocate_field(f_tangent,field_u,type_real,3)
@@ -174 +171 @@
     TYPE(t_field),POINTER,SAVE :: f_zq(:)
 
-    REAL(rstd)::bigt,dt
+    REAL(rstd)::bigt
     REAL(rstd),POINTER :: q(:,:,:)
     REAL(rstd),POINTER :: u(:,:)