Changeset 763 for branches/dev_001_GM/NEMO/TOP_SRC/par_trc_trp.F90

Timestamp:

2007-12-13T14:52:50+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - Style only addition in TOP F90 h90 routines

File:

• branches/dev_001_GM/NEMO/TOP_SRC/par_trc_trp.F90 (modified) (1 diff)

branches/dev_001_GM/NEMO/TOP_SRC/par_trc_trp.F90

@@ -2 +2 @@
    !!======================================================================
    !!                        ***  par_trc_trp  ***
-   !! passive tracers :   set the number of passive tracers
+   !! TOP :   set the number of passive tracers
    !!======================================================================
-   !! History :
-   !!   9.0  !  04-03  (C. Ethe)  Orignal
+   !! History :   1.0  !  2004-03  (C. Ethe)  Original cade
+   !!             2.0  !  04-03  (C. Ethe, G. Madec)  rewriting
    !!----------------------------------------------------------------------
-   !!  TOP 1.0,  LOCEAN-IPSL (2005) 
-   !! $Header$ 
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
+   !! NEMO/TOP 1.0,  LOCEAN-IPSL (2005)
+   !! $Id$
+   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
 #if defined key_passivetrc
-   !!---------------------------------------------------------------------
-   !!   'key_passivetrc'   :                               Passive tracer
-   !!---------------------------------------------------------------------
+   !!----------------------------------------------------------------------
+   !!   'key_passivetrc'                                    Passive tracers
+   !!----------------------------------------------------------------------
 
    IMPLICIT NONE
    PUBLIC
    
-   !! jptra   : number of passive tracers
-   !! jpdia2d : additional 2d output
-   !! jpdia3d : additional 3d output
-
-#if defined key_trc_lobster1
+# if defined key_trc_lobster1
    !!---------------------------------------------------------------------
-   !!   'key_trc_lobster1'   :            LOBSTER1 Source Minus Sink model
+   !!   'key_trc_lobster1'   :                    LOBSTER biological model
    !!---------------------------------------------------------------------
-   INTEGER, PUBLIC, PARAMETER :: jptra   = 6
-#if defined key_trc_diaadd
-   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 19
-   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 3
-#endif
-#elif defined key_cfc
+   INTEGER, PUBLIC, PARAMETER ::   jptra   =  6   !: number of passive tracers
+#  if defined key_trc_diaadd
+   INTEGER, PUBLIC, PARAMETER ::   jpdia2d = 19   !: additional 2d output
+   INTEGER, PUBLIC, PARAMETER ::   jpdia3d =  3   !: additional 3d output
+#  endif
+# elif defined key_cfc
    !!---------------------------------------------------------------------
    !!   'key_cfc'   :                      CFC Source Minus Sink model
    !!---------------------------------------------------------------------
-   INTEGER, PUBLIC, PARAMETER :: jptra   = 2
-#if defined key_trc_diaadd
-   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
-   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
-#endif
-#elif defined key_trc_pisces
+   INTEGER, PUBLIC, PARAMETER ::   jptra   = 2   !: number of passive tracers
+#  if defined key_trc_diaadd
+   INTEGER, PUBLIC, PARAMETER ::   jpdia2d = 1   !: additional 2d output
+   INTEGER, PUBLIC, PARAMETER ::   jpdia3d = 1   !: additional 3d output
+#  endif
+# elif defined key_trc_pisces
    !!---------------------------------------------------------------------
    !!   'key_trc_pisces'   :                  PISCES Source Minus Sink model
    !!---------------------------------------------------------------------
-#if ! defined key_trc_kriest
-   INTEGER, PUBLIC, PARAMETER :: jptra   = 24
-#if defined key_trc_diaadd
-   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 13
-   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 11
+#  if ! defined key_trc_kriest
+   INTEGER, PUBLIC, PARAMETER ::   jptra   = 24   !: number of passive tracers
+#   if defined key_trc_diaadd
+   INTEGER, PUBLIC, PARAMETER ::   jpdia2d = 13   !: additional 2d output
+   INTEGER, PUBLIC, PARAMETER ::   jpdia3d = 11   !: additional 3d output
+#   endif
+#  else
+   INTEGER, PUBLIC, PARAMETER ::   jptra   = 23   !: number of passive tracers
+#   if defined key_trc_diaadd
+   INTEGER, PUBLIC, PARAMETER ::   jpdia2d = 13   !: additional 2d output
+   INTEGER, PUBLIC, PARAMETER ::   jpdia3d = 18   !: additional 3d output
+#   endif
 #  endif
-#else
-   INTEGER, PUBLIC, PARAMETER :: jptra   = 23
-#if defined key_trc_diaadd
-   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 13
-   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 18
-#  endif
-#endif
-#else
+# else
    !!---------------------------------------------------------------------
    !!   'default'   :          temperature and salinity as passive tracers
    !!---------------------------------------------------------------------
-   INTEGER, PUBLIC, PARAMETER :: jptra   = 2
-#if defined key_trc_diaadd
-   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
-   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
-#endif
+   INTEGER, PUBLIC, PARAMETER ::   jptra   = 2   !: number of passive tracers
+#  if defined key_trc_diaadd
+   INTEGER, PUBLIC, PARAMETER ::   jpdia2d = 1   !: additional 2d output
+   INTEGER, PUBLIC, PARAMETER ::   jpdia3d = 1   !: additional 3d output
+#  endif
+# endif
+
+#else
+   !!----------------------------------------------------------------------
+   !!  Empty module :                                     No passive tracer
+   !!----------------------------------------------------------------------
 #endif
 
-#else
    !!======================================================================
-   !!  Empty module : No passive tracer 
-   !!======================================================================
-#endif
-
 END MODULE par_trc_trp