Changeset 945 for trunk/NEMO/TOP_SRC/par_trc.F90

Timestamp:

2008-05-14T18:14:53+02:00 (16 years ago)

Author:

cetlod

Message:

Update modules for new version of TOP model, see ticket 144

File:

• trunk/NEMO/TOP_SRC/par_trc.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/par_trc.F90

@@ -2 +2 @@
    !!======================================================================
    !!                        ***  par_trc  ***
-   !! passive tracers :   set the passive tracers parameters
+   !! TOP :   set the passive tracers parameters
    !!======================================================================
-   !! History :
-   !!   8.2  !  96-01  (M. Levy)  Original code
-   !!        !  99-07  (M. Levy)  for LOBSTER1 or NPZD model
-   !!        !  00-04  (O. Aumont, M.A. Foujols)  HAMOCC3 and P3ZD
-   !!   9.0  !  04-03  (C. Ethe)  Free form and module
+   !! History :    -   !  1996-01  (M. Levy)  original code
+   !!              -   !  1999-07  (M. Levy)  for LOBSTER1 or NPZD model
+   !!              -   !  2000-04  (O. Aumont, M.A. Foujols)  HAMOCC3 and P3ZD
+   !!             1.0  !  2004-03  (C. Ethe) Free form and module
+   !!             2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture
    !!----------------------------------------------------------------------
-   !!  TOP 1.0,  LOCEAN-IPSL (2005)
-   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/par_trc.F90,v 1.6 2007/10/12 09:22:19 opalod Exp $
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
+   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) 
+   !! $Id$ 
+   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
-   !! * Modules used
-#if defined key_passivetrc
-
-   USE par_trc_trp
+   USE par_kind          ! kind parameters
+   !
+   USE par_lobster   ! LOBSTER model
+   USE par_pisces    ! PISCES  model
+   USE par_cfc       ! CFC 11 and 12 tracers
+   USE par_my_trc    ! user defined passive tracers
 
    IMPLICIT NONE
    PUBLIC
 
-
-#if defined key_trc_diatrd
-
-!! number of dynamical trends
-#  if defined key_trcldf_eiv
-!! we keep 3 more trends for eddy induced flux (gent velocity)
-#    if defined key_trcdmp
-   INTEGER , PARAMETER :: jpdiatrc = 11
-#    else
-   INTEGER , PARAMETER :: jpdiatrc = 10
-#    endif
-#  else
-#    if defined key_trcdmp
-   INTEGER , PARAMETER :: jpdiatrc = 8
-#    else
-   INTEGER , PARAMETER :: jpdiatrc = 7
-#    endif
-#  endif
+   ! Passive tracers : Total size
+   ! ---------------               ! total number of passive tracers, of 2d and 3d output and trend arrays
+   INTEGER, PUBLIC, PARAMETER ::   jptra    =  jp_lobster    + jp_pisces     + jp_cfc     + jp_my_trc
+   INTEGER, PUBLIC, PARAMETER ::   jpdia2d  =  jp_lobster_2d + jp_pisces_2d  + jp_cfc_2d  + jp_my_trc_2d
+   INTEGER, PUBLIC, PARAMETER ::   jpdia3d  =  jp_lobster_3d + jp_pisces_3d  + jp_cfc_3d  + jp_my_trc_3d
+   !                     ! total number of sms diagnostic arrays
+   INTEGER, PUBLIC, PARAMETER ::   jpdiabio = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_my_trc_trd
+   
+   !  1D configuration ("key_c1d")
+   ! -----------------
+# if defined key_c1d
+   LOGICAL, PUBLIC, PARAMETER ::   lk_trc_c1d   = .TRUE.   !: 1D pass. tracer configuration flag
+# else   
+   LOGICAL, PUBLIC, PARAMETER ::   lk_trc_c1d   = .FALSE.  !: 1D pass. tracer configuration flag
 # endif
 
+   ! Passive tracers : size for TRP trends diagnotics (used if 'key_trc_diatrd' defined)
+#if defined key_trcldf_eiv
+# if defined key_trcdmp
+   INTEGER, PARAMETER :: jpdiatrc = 11      !: trends: 3*(advection + diffusion + eiv ) + damping + sms
+# else
+   INTEGER, PARAMETER :: jpdiatrc = 10      !: trends: 3*(advection + diffusion + eiv )           + sms
+# endif
 #else
-   !!======================================================================
-   !!  Empty module : No passive tracer 
-   !!======================================================================
+# if defined key_trcdmp
+   INTEGER, PARAMETER :: jpdiatrc =  8      !: trends: 3*(advection + diffusion       ) + damping + sms
+# else
+   INTEGER, PARAMETER :: jpdiatrc =  7      !: trends: 3*(advection + diffusion       ) + damping + sms
+# endif
 #endif
 
+   !!======================================================================
 END MODULE par_trc