Changeset 387

Timestamp:

03/22/23 17:00:13 (13 months ago)

Author:

dumas

Message:

use only for tracers : compile but not tested in a simulation

Location:

branches/GRISLIv3/SOURCES

Files:

• celltest_tracer.f90 (modified) (1 diff)
• tracer_mod.f90 (modified) (3 diffs)
• tracer_vars_mod.f90 (modified) (1 diff)

branches/GRISLIv3/SOURCES/celltest_tracer.f90

@@ -5 +5 @@
 
       !!  Find the cell origin index for the previous time_tra step
-      use module3d_phy
-      use tracer_vars
+      use module3d_phy, only:nx,ny,nz,e,dx,dy,uxbar,uybar,flotmx,flotmy,ux,uy,gzmx,gzmy
+      use tracer_vars, only:xgrid,ygrid
       implicit none
 

branches/GRISLIv3/SOURCES/tracer_mod.f90

@@ -27 +27 @@
 module tracer_mod
 
-  use module3d_phy
-  use tracer_vars             ! module de declaration de variables pour les traceurs
+  use module3d_phy, only:nx,ny,nz,itracer,e,time,dtt,num_param,num_rep_42,dx,dy,acc,H,dirforcage,num_forc,&
+       ux,uy,uzr,bmelt,S,flot,bm
+  use runparam, only:itracebug,num_tracebug,xmin,ymin,tbegin,tend
+  ! module de declaration de variables pour les traceurs
+  use tracer_vars, only:file_tr_dat,file_tr_out,file_tr_dep,file_tr_dat,coeft_tra,rappact_tra,nij,&
+       xgrid,ygrid,xdepk,ydepk,tdepk,nft_tra,tdate_tra,tpert_tra,accucumul,type_accum,time_max_accu,&
+       uxsave,uysave,uzrsave,xdep,ydep,tdep,freezeon,xdep_out,ydep_out,tdep_out
 !cdc  use climat_perturb_mois_mod ! on en a besoin, notamment pour NFT
 ! afq, new version of tracer, does not require climat_perturb
@@ -73 +78 @@
   integer ::  err                  ! pour l'allocation des tableaux
   real :: bidon                    ! to skip sealevel change in fileforc
-  
+  integer :: i,j,k
   integer :: kk   ! indice vertical pour definition de E, mais on veut conserver la valeur de k
 !  real,dimension(nz) :: E   ! vertical coordinate in ice, scaled to H zeta
@@ -299 +304 @@
 subroutine tracer
 
+  integer :: i,j,k
   real,dimension(nz) :: E   ! vertical coordinate in ice, scaled to H zeta
 

branches/GRISLIv3/SOURCES/tracer_vars_mod.f90

@@ -4 +4 @@
 module tracer_vars
   
-  use module3d_phy
+  use module3d_phy, only:nx,ny,nz,itracer
   
   implicit none