Changeset 54 for trunk/SOURCES/tracer_vars_mod.f90

Timestamp:

03/31/16 11:01:50 (8 years ago)

Author:

aquiquet

Message:

Tracers back in the code / use notracer unchanged

File:

• trunk/SOURCES/tracer_vars_mod.f90 (modified) (1 diff)

trunk/SOURCES/tracer_vars_mod.f90

@@ -25 +25 @@
   integer :: nspectimes
   real :: time_max_accu
+
+  ! afq marion dufresne: tracer with no climat perturb
+  ! i.e. we read the Forcage Tpert to compute past accumulation via
+  ! rappact
+  ! OR we read directly past accum (choice in namelist)
+  ! if past accum is given it will still be read with the name Tpert
+  ! the past accum given should be the ratio acc_palaeo / acc_present
+  integer :: nft_tra                         ! number of snapshot Tpert
+  integer :: type_accum                      ! Tpert is given (=0) or accpert (1)
+  real    :: rappact_tra                     ! accumulation ratio to convert Tpert
+  real    :: coeft_tra                       ! coeft to convert Tpert
+  real,dimension(:),allocatable :: tpert_tra ! temperature perturbation
+  real,dimension(:),allocatable :: tdate_tra ! time for Tpert
+
   
   integer, dimension(maxspectimes) :: trout