Changeset 1120 for trunk/NEMO/TOP_SRC/TRP/trp_trc.F90
- Timestamp:
- 2008-06-20T17:21:25+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/TRP/trp_trc.F90
r1118 r1120 14 14 !! 'key_top' TOP models 15 15 !!---------------------------------------------------------------------- 16 17 !! passive tracers number 18 USE par_trc, ONLY : jptra => jptra !: number of passive tracers 16 USE par_oce 17 USE par_trc 19 18 20 19 !! passive tracers fields … … 26 25 !! time step 27 26 USE trc , ONLY : ndttrc => ndttrc !: frequency of step on passive tracers (NAMELIST) 27 USE trc , ONLY : ctrcnm => ctrcnm !: 28 USE trc , ONLY : numnat => numnat !: namelist 29 USE trc , ONLY : nittrc000 => nittrc000 28 30 29 !! non-centered advection scheme (smolarkiewicz) 30 USE trc , ONLY : rtrn => rtrn !: value for truncation (NAMELIST) 31 USE trc , ONLY : ctrcnm => ctrcnm !: value for truncation (NAMELIST) 31 !! isopycnal scheme for passive tracers 32 !! ------------------------------------ 33 REAL(wp), PUBLIC :: ahtrb0 !: background diffusivity coefficient for passive tracer (m2/s) 34 REAL(wp), PUBLIC :: trcrat !: ratio between passive and active tracer coeff for diffusion 35 REAL(wp), PUBLIC :: ahtrc0 !: horizontal eddy diffusivity for passive tracers (m2/s) 36 REAL(wp), PUBLIC :: aeivtr0 !: eddy induced velocity coefficient (m2/s) 32 37 33 # if defined key_trc_diaadd 34 USE par_trc, ONLY : jpdia2d => jpdia2d !: number of 2D passive tracers diag 35 USE par_trc, ONLY : jpdia3d => jpdia3d !: number of 3D passive tracers diag 36 USE trc , ONLY : trc2d => trc2d !: additional 2D variable for ouputs 37 USE trc , ONLY : trc3d => trc3d !: additional 3D variable for ouputs 38 !! interpolated gradient 39 !!-------------------------------------------------- 40 REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jptra) :: gtru !: horizontal gradient at u-points at bottom ocean level 41 REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jptra) :: gtrv !: horizontal gradient at v-points at bottom ocean level 42 43 44 # if defined key_trcldf_eiv && defined key_diaeiv 45 !! The three component of the eddy induced velocity 46 !! -------------------------------------------------- 47 REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk) :: u_trc_eiv !: u-eiv (m/s) 48 REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk) :: v_trc_eiv !: v-eiv (m/s) 49 REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk) :: w_trc_eiv !: w-eiv (m/s) 38 50 # endif 51 52 # if defined key_trc_diatrd 53 54 !! non conservative trends (biological, ...) 55 !! -------------------------------------------------- 56 LOGICAL, PUBLIC, DIMENSION (jptra) :: luttrd !: large trends diagnostic to write or not (namelist) 57 58 !! Advection-diffusion trends 59 REAL(wp), PUBLIC, DIMENSION(:,:,:,:,:), ALLOCATABLE :: trtrd !: trends of the tracer equations 60 61 INTEGER, PUBLIC, DIMENSION(jptra) :: ikeep ! indice of tracer for which dyn trends are stored 62 INTEGER, PUBLIC :: nkeep ! number of tracers for which dyn trends are stored 63 ! ! (used to allocate trtrd buffer) 64 65 !! netcdf files and index common 66 !! -------------------------------------------------- 67 INTEGER , PUBLIC :: nwritetrd !: frequency of additional arrays outputs(namelist) 68 69 # endif 39 70 40 71 #else
Note: See TracChangeset
for help on using the changeset viewer.