Changeset 1254 for trunk/NEMO/TOP_SRC/par_trc.F90
- Timestamp:
- 2009-01-13T10:58:39+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/par_trc.F90
r1146 r1254 19 19 USE par_pisces ! PISCES model 20 20 USE par_cfc ! CFC 11 and 12 tracers 21 USE par_c14b ! C14 bomb tracer 21 22 USE par_my_trc ! user defined passive tracers 22 23 … … 26 27 ! Passive tracers : Total size 27 28 ! --------------- ! total number of passive tracers, of 2d and 3d output and trend arrays 28 INTEGER, PUBLIC, PARAMETER :: jptra = jp_lobster + jp_pisces + jp_cfc + jp_ my_trc29 INTEGER, PUBLIC, PARAMETER :: jpdia2d = jp_lobster_2d + jp_pisces_2d + jp_cfc_2d + jp_ my_trc_2d30 INTEGER, PUBLIC, PARAMETER :: jpdia3d = jp_lobster_3d + jp_pisces_3d + jp_cfc_3d + jp_ my_trc_3d29 INTEGER, PUBLIC, PARAMETER :: jptra = jp_lobster + jp_pisces + jp_cfc + jp_c14b + jp_my_trc 30 INTEGER, PUBLIC, PARAMETER :: jpdia2d = jp_lobster_2d + jp_pisces_2d + jp_cfc_2d + jp_c14b_2d + jp_my_trc_2d 31 INTEGER, PUBLIC, PARAMETER :: jpdia3d = jp_lobster_3d + jp_pisces_3d + jp_cfc_3d + jp_c14b_3d + jp_my_trc_3d 31 32 ! ! total number of sms diagnostic arrays 32 INTEGER, PUBLIC, PARAMETER :: jpdiabio = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_ my_trc_trd33 INTEGER, PUBLIC, PARAMETER :: jpdiabio = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_my_trc_trd 33 34 34 35 ! 1D configuration ("key_c1d")
Note: See TracChangeset
for help on using the changeset viewer.