source: branches/GRISLIv3/SOURCES/notracer_mod.f90 @ 423

Last change on this file since 423 was 423, checked in by dumas, 14 months ago

Use only in no-icethick, no_rsl, no_sliding, no_spinup and notracer
File size: 555 bytes
Line 
1
2! routine appele par le main (step)
3! routine qui ne fait rien (qd on ne veut pas utiliser les tracers
4
5module notracer_mod 
6
7  use module3d_phy, only: itracer
8  use tracer_vars, only: tdep,xdep,ydep  ! pour ne pas avoir de probleme avec les sorties ncdf
9  implicit none
10
11  contains
12
13  subroutine init_tracer
14    tdep(:,:,:)=0.
15    xdep(:,:,:)=0.
16    ydep(:,:,:)=0.
17
18 ! pour ecrire les recovery avec ou sans les tableaux traceurs
19    itracer = 0
20  end subroutine init_tracer
21 
22
23  subroutine tracer
24  end subroutine tracer
25 
26   
27end module notracer_mod
Note: See TracBrowser for help on using the repository browser.