[4] | 1 | ! tracer parameters and arrays |
---|
| 2 | ! try to minimize use of allocatable arrays |
---|
| 3 | |
---|
| 4 | module tracer_vars |
---|
| 5 | |
---|
| 6 | use module3d_phy |
---|
| 7 | |
---|
| 8 | implicit none |
---|
| 9 | save |
---|
| 10 | |
---|
| 11 | integer, dimension(nx*ny) :: ix, jx |
---|
| 12 | |
---|
| 13 | !! The integer array indx_tr(i,j) yields an index value which is the |
---|
| 14 | !! ij subscript of the tracer archive array archive_tr(:,:,:) |
---|
| 15 | |
---|
| 16 | integer :: nij ! number of (i,j)->ij mappings |
---|
| 17 | |
---|
| 18 | integer, parameter :: unit_tr_dat=572 |
---|
| 19 | integer, parameter :: unit_tr_out=573 |
---|
| 20 | integer, parameter :: unit_tr_dep=574 |
---|
| 21 | |
---|
| 22 | integer, parameter :: maxspectimes=31 |
---|
| 23 | |
---|
| 24 | integer :: delttrout |
---|
| 25 | integer :: nspectimes |
---|
| 26 | real :: time_max_accu |
---|
| 27 | |
---|
| 28 | integer, dimension(maxspectimes) :: trout |
---|
| 29 | real, dimension(nx) :: xgrid |
---|
| 30 | real, dimension(ny) :: ygrid |
---|
| 31 | |
---|
| 32 | real , dimension(nx*ny) :: TS_save |
---|
| 33 | real , dimension(nx*ny) :: hi_save |
---|
| 34 | real , dimension(nx*ny) :: bi_save |
---|
| 35 | |
---|
| 36 | !! Traced scalars (xd, yd, td) for sheet |
---|
| 37 | !! (deposition point and deposition time) for present and previous times |
---|
| 38 | |
---|
| 39 | ! dep, tableau (grille 'o') "origine de la glace" au temp time |
---|
| 40 | real , dimension(nz,nx-2,ny-2) :: xdep |
---|
| 41 | real , dimension(nz,nx-2,ny-2) :: ydep |
---|
| 42 | real , dimension(nz,nx-2,ny-2) :: tdep |
---|
| 43 | |
---|
| 44 | ! dep, tableau (grille 'o') "origine de la glace" a l'initialisation (a confirmer) |
---|
| 45 | real , dimension(nz,nx-2,ny-2) :: xdepk ! |
---|
| 46 | real , dimension(nz,nx-2,ny-2) :: ydepk ! |
---|
| 47 | real , dimension(nz,nx-2,ny-2) :: tdepk ! |
---|
| 48 | |
---|
| 49 | ! dep, tableau (grille 'o') "origine de la glace" au temp time, dimension pour outputs |
---|
| 50 | real , dimension(nx,ny,nz) :: xdep_out |
---|
| 51 | real , dimension(nx,ny,nz) :: ydep_out |
---|
| 52 | real , dimension(nx,ny,nz) :: tdep_out |
---|
| 53 | |
---|
| 54 | real , dimension(nz) :: lnzeta |
---|
| 55 | |
---|
| 56 | character (LEN=60) :: file_tr_dat, file_tr_out, file_tr_dep |
---|
| 57 | |
---|
| 58 | real , dimension(nx,ny,nz) :: uxsave |
---|
| 59 | real , dimension(nx,ny,nz) :: uysave |
---|
| 60 | real , dimension(nx,ny,nz) :: uzrsave |
---|
| 61 | |
---|
| 62 | real , allocatable, dimension(:) :: accucumul |
---|
| 63 | |
---|
| 64 | real, dimension(nx-2,ny-2) :: freezeon |
---|
| 65 | |
---|
| 66 | |
---|
| 67 | end module tracer_vars |
---|
| 68 | |
---|