Changeset 1601 for trunk/NEMO/OPA_SRC/TRD/trdicp_oce.F90

Timestamp:

2009-08-11T12:09:19+02:00 (15 years ago)

Author:

ctlod

Message:

Doctor naming of OPA namelist variables , see ticket: #526

File:

• trunk/NEMO/OPA_SRC/TRD/trdicp_oce.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/TRD/trdicp_oce.F90

@@ -14 +14 @@
    PUBLIC
 
-   !! * Shared module variables
 #if  defined key_trdtra   &&   defined key_trddyn    ||   defined key_esopa
    LOGICAL, PARAMETER ::   lk_trdtra = .TRUE.    !: tracers  trend flag
@@ -29 +28 @@
 #endif
 
-   !! Tracers trends diagnostics parameters
-   !!---------------------------------------------------------------------
-   INTEGER, PARAMETER ::   &  !: => tracer trends indexes <=
-        jpicpt_xad =  1,   &  !: x- horizontal advection
-        jpicpt_yad =  2,   &  !: y- horizontal advection
-        jpicpt_zad =  3,   &  !: z- vertical   advection
-        jpicpt_ldf =  4,   &  !: lateral       diffusion
-        jpicpt_zdf =  5,   &  !: vertical diffusion (Kz)
-        jpicpt_bbc =  6,   &  !: Bottom Boundary Condition (geoth. flux) 
-        jpicpt_bbl =  7,   &  !: Bottom Boundary Layer (diffusive/convective)
-        jpicpt_npc =  8,   &  !: static instability mixing
-        jpicpt_dmp =  9,   &  !: damping
-        jpicpt_qsr = 10,   &  !: penetrative solar radiation
-        jpicpt_nsr = 11,   &  !: non solar radiation
-        jpicpt_zl1 = 12       !: first level vertical flux
+   !                                        !!! => tracer trends indexes <=
+   INTEGER, PARAMETER ::   jpicpt_xad =  1   !: x- horizontal advection
+   INTEGER, PARAMETER ::   jpicpt_yad =  2   !: y- horizontal advection
+   INTEGER, PARAMETER ::   jpicpt_zad =  3   !: z- vertical   advection
+   INTEGER, PARAMETER ::   jpicpt_ldf =  4   !: lateral       diffusion
+   INTEGER, PARAMETER ::   jpicpt_zdf =  5   !: vertical diffusion (Kz)
+   INTEGER, PARAMETER ::   jpicpt_bbc =  6   !: Bottom Boundary Condition (geoth. flux) 
+   INTEGER, PARAMETER ::   jpicpt_bbl =  7   !: Bottom Boundary Layer (diffusive/convective)
+   INTEGER, PARAMETER ::   jpicpt_npc =  8   !: static instability mixing
+   INTEGER, PARAMETER ::   jpicpt_dmp =  9   !: damping
+   INTEGER, PARAMETER ::   jpicpt_qsr = 10   !: penetrative solar radiation
+   INTEGER, PARAMETER ::   jpicpt_nsr = 11   !: non solar radiation
+   INTEGER, PARAMETER ::   jpicpt_zl1 = 12   !: first level vertical flux
 
-   INTEGER, PARAMETER ::   &  !: => Total tracer trends indexes <=
-        jptot_tra = 12        !: change it when adding/removing one indice above
+   !                                        !!! => Total tracer trends indexes <=
+   INTEGER, PARAMETER ::   jptot_tra  = 12   !: change it when adding/removing one indice above
    
-   !! Momentum trends diagnostics parameters
-   !!---------------------------------------------------------------------
-   INTEGER, PARAMETER ::   &  !: => dynamic trends indexes <=
-        jpicpd_hpg =  1,   &  !: hydrostatic pressure gradient 
-        jpicpd_keg =  2,   &  !: kinetic energy gradient
-        jpicpd_rvo =  3,   &  !: relative vorticity
-        jpicpd_pvo =  4,   &  !: planetary vorticity
-        jpicpd_ldf =  5,   &  !: lateral diffusion
-        jpicpd_had =  6,   &  !: horizontal advection
-        jpicpd_zad =  7,   &  !: vertical advection
-        jpicpd_zdf =  8,   &  !: vertical diffusion
-        jpicpd_spg =  9,   &  !: surface pressure gradient
-        jpicpd_dat = 10,   &  !: damping term
-        jpicpd_swf = 11,   &  !: surface wind forcing
-        jpicpd_bfr = 12       !: bottom friction 
+   !                                        !!! => dynamic trends indexes <=
+   INTEGER, PARAMETER ::   jpicpd_hpg =  1   !: hydrostatic pressure gradient 
+   INTEGER, PARAMETER ::   jpicpd_keg =  2   !: kinetic energy gradient
+   INTEGER, PARAMETER ::   jpicpd_rvo =  3   !: relative vorticity
+   INTEGER, PARAMETER ::   jpicpd_pvo =  4   !: planetary vorticity
+   INTEGER, PARAMETER ::   jpicpd_ldf =  5   !: lateral diffusion
+   INTEGER, PARAMETER ::   jpicpd_had =  6   !: horizontal advection
+   INTEGER, PARAMETER ::   jpicpd_zad =  7   !: vertical advection
+   INTEGER, PARAMETER ::   jpicpd_zdf =  8   !: vertical diffusion
+   INTEGER, PARAMETER ::   jpicpd_spg =  9   !: surface pressure gradient
+   INTEGER, PARAMETER ::   jpicpd_dat = 10   !: damping term
+   INTEGER, PARAMETER ::   jpicpd_swf = 11   !: surface wind forcing
+   INTEGER, PARAMETER ::   jpicpd_bfr = 12   !: bottom friction 
 
-   INTEGER, PARAMETER ::   &  !: => Total dynamic trends indexes <=
-        jptot_dyn = 12        !: change it when adding/removing one indice above
+   !                                        !!! => Total dynamic trends indexes <=
+   INTEGER, PARAMETER ::   jptot_dyn  = 12   !: change it when adding/removing one indice above
    
 #if   defined key_trdtra   ||   defined key_trddyn   ||   defined key_esopa
@@ -89 +84 @@
 #endif
    !!----------------------------------------------------------------------
-   !!  OPA 9.0 , LOCEAN-IPSL (2005) 
+   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009) 
    !! $Id$ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)