- Timestamp:
- 2010-06-25T16:58:03+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1784_mid_year_merge_2010/NEMO/TOP_SRC/par_trc.F90
r1254 r1970 18 18 USE par_lobster ! LOBSTER model 19 19 USE par_pisces ! PISCES model 20 USE par_c14b ! C14 bomb tracer 20 21 USE par_cfc ! CFC 11 and 12 tracers 21 USE par_c14b ! C14 bomb tracer22 22 USE par_my_trc ! user defined passive tracers 23 23 … … 27 27 ! Passive tracers : Total size 28 28 ! --------------- ! total number of passive tracers, of 2d and 3d output and trend arrays 29 INTEGER, PUBLIC, PARAMETER :: jptra = jp_lobster + jp_pisces + jp_cfc + jp_ c14b + jp_my_trc30 INTEGER, PUBLIC, PARAMETER :: jpdia2d = jp_lobster_2d + jp_pisces_2d + jp_cfc_2d + jp_ c14b_2d + jp_my_trc_2d31 INTEGER, PUBLIC, PARAMETER :: jpdia3d = jp_lobster_3d + jp_pisces_3d + jp_cfc_3d + jp_ c14b_3d + jp_my_trc_3d29 INTEGER, PUBLIC, PARAMETER :: jptra = jp_lobster + jp_pisces + jp_cfc + jp_my_trc 30 INTEGER, PUBLIC, PARAMETER :: jpdia2d = jp_lobster_2d + jp_pisces_2d + jp_cfc_2d + jp_my_trc_2d 31 INTEGER, PUBLIC, PARAMETER :: jpdia3d = jp_lobster_3d + jp_pisces_3d + jp_cfc_3d + jp_my_trc_3d 32 32 ! ! total number of sms diagnostic arrays 33 INTEGER, PUBLIC, PARAMETER :: jpdiabio = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_ c14b_trd + jp_my_trc_trd33 INTEGER, PUBLIC, PARAMETER :: jpdiabio = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_my_trc_trd 34 34 35 35 ! 1D configuration ("key_c1d") … … 40 40 LOGICAL, PUBLIC, PARAMETER :: lk_trc_c1d = .FALSE. !: 1D pass. tracer configuration flag 41 41 # endif 42 43 42 ! Passive tracers : size for TRP trends diagnotics (used if 'key_trc_diatrd' defined) 44 #if defined key_trcldf_eiv 45 # if defined key_trcdmp 46 INTEGER, PARAMETER :: jpdiatrc = 11 !: trends: 3*(advection + diffusion + eiv ) + damping + sms 47 # else 48 INTEGER, PARAMETER :: jpdiatrc = 10 !: trends: 3*(advection + diffusion + eiv ) + sms 49 # endif 50 #else 51 # if defined key_trcdmp 52 INTEGER, PARAMETER :: jpdiatrc = 8 !: trends: 3*(advection + diffusion ) + damping + sms 53 # else 54 INTEGER, PARAMETER :: jpdiatrc = 7 !: trends: 3*(advection + diffusion ) + damping + sms 55 # endif 43 # if defined key_trc_diatrd 44 ! Passive tracers : size for TRP trends diagnotics (used if 'key_trc_diatrd' defined) 45 INTEGER, PARAMETER :: jptrc_xad = 1 !: x- horizontal advection 46 INTEGER, PARAMETER :: jptrc_yad = 2 !: y- horizontal advection 47 INTEGER, PARAMETER :: jptrc_zad = 3 !: z- vertical advection 48 INTEGER, PARAMETER :: jptrc_xdf = 4 !: lateral diffusion 49 INTEGER, PARAMETER :: jptrc_ydf = 5 !: lateral diffusion 50 INTEGER, PARAMETER :: jptrc_zdf = 6 !: vertical diffusion (Kz) 51 INTEGER, PARAMETER :: jptrc_sbc = 7 !: surface boundary condition 52 #if ! defined key_trcldf_eiv && ! defined key_trcdmp 53 INTEGER, PARAMETER :: jpdiatrc = 7 !: trends: 3*(advection + diffusion ) + sbc 54 #endif 55 #if defined key_trcldf_eiv && defined key_trcdmp 56 INTEGER, PARAMETER :: jptrc_xei = 8 !: x- horiz. EIV advection 57 INTEGER, PARAMETER :: jptrc_yei = 9 !: y- horiz. EIV advection 58 INTEGER, PARAMETER :: jptrc_zei = 10 !: z- vert. EIV advection 59 INTEGER, PARAMETER :: jptrc_dmp = 11 !: damping 60 INTEGER, PARAMETER :: jpdiatrc = 11 !: trends: 3*(advection + diffusion + eiv ) + sbc + damping 61 #endif 62 #if defined key_trcldf_eiv && ! defined key_trcdmp 63 INTEGER, PARAMETER :: jptrc_xei = 8 !: x- horiz. EIV advection 64 INTEGER, PARAMETER :: jptrc_yei = 9 !: y- horiz. EIV advection 65 INTEGER, PARAMETER :: jptrc_zei = 10 !: z- vert. EIV advection 66 INTEGER, PARAMETER :: jpdiatrc = 10 !: trends: 3*(advection + diffusion + eiv ) + sbc 67 #endif 68 #if ! defined key_trcldf_eiv && defined key_trcdmp 69 INTEGER, PARAMETER :: jptrc_dmp = 8 !: damping 70 INTEGER, PARAMETER :: jpdiatrc = 8 !: trends: 3*(advection + diffusion ) + sbc + damping 71 #endif 56 72 #endif 57 73
Note: See TracChangeset
for help on using the changeset viewer.