New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2528 for trunk/NEMOGCM/NEMO/OPA_SRC/TRD/trdmod_oce.F90 – NEMO

Ignore:
Timestamp:
2010-12-27T18:33:53+01:00 (13 years ago)
Author:
rblod
Message:

Update NEMOGCM from branch nemo_v3_3_beta

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/TRD/trdmod_oce.F90

    • Property svn:eol-style deleted
    r1601 r2528  
    44   !! Ocean trends :   set tracer and momentum trend variables 
    55   !!====================================================================== 
    6    !! History :  9.0  !  04-08  (C. Talandier) Original code 
     6   !! History :  1.0  !  2004-08  (C. Talandier) Original code 
    77   !!---------------------------------------------------------------------- 
    88   USE trdicp_oce              ! ocean momentum/tracers bassin properties trends variables 
    … …  
    2424 
    2525# if defined key_trdtra   ||   defined key_trdmld 
    26    LOGICAL , PUBLIC ::   l_trdtra = .TRUE.              !: tracers  trend flag 
     26   LOGICAL , PUBLIC ::   l_trdtra = .TRUE.                !: tracers  trend flag 
    2727# else 
    28    LOGICAL , PUBLIC ::   l_trdtra = .FALSE.             !: tracers  trend flag 
     28   LOGICAL , PUBLIC ::   l_trdtra = .FALSE.               !: tracers  trend flag 
    2929# endif 
    3030# if defined key_trddyn   ||   defined key_trdvor 
    31    LOGICAL , PUBLIC ::   l_trddyn = .TRUE.              !: momentum trend flag 
     31   LOGICAL , PUBLIC ::   l_trddyn = .TRUE.                !: momentum trend flag 
    3232# else 
    33    LOGICAL , PUBLIC ::   l_trddyn = .FALSE.             !: momentum trend flag 
     33   LOGICAL , PUBLIC ::   l_trddyn = .FALSE.               !: momentum trend flag 
    3434# endif 
    35  
    36    !                                                   !!! Active tracers trends indexes 
    37    INTEGER, PUBLIC, PARAMETER ::   jptra_trd_xad =  1   !: x- horizontal advection 
    38    INTEGER, PUBLIC, PARAMETER ::   jptra_trd_yad =  2   !: y- horizontal advection 
    39    INTEGER, PUBLIC, PARAMETER ::   jptra_trd_zad =  3   !: z- vertical   advection 
    40    INTEGER, PUBLIC, PARAMETER ::   jptra_trd_ldf =  4   !: lateral       diffusion 
    41    INTEGER, PUBLIC, PARAMETER ::   jptra_trd_zdf =  5   !: vertical diffusion (Kz) 
    42    INTEGER, PUBLIC, PARAMETER ::   jptra_trd_bbc =  6   !: Bottom Boundary Condition (geoth. flux)  
    43    INTEGER, PUBLIC, PARAMETER ::   jptra_trd_bbl =  7   !: Bottom Boundary Layer (diffusive/convective) 
    44    INTEGER, PUBLIC, PARAMETER ::   jptra_trd_npc =  8   !: static instability mixing 
    45    INTEGER, PUBLIC, PARAMETER ::   jptra_trd_dmp =  9   !: damping 
    46    INTEGER, PUBLIC, PARAMETER ::   jptra_trd_qsr = 10   !: penetrative solar radiation 
    47    INTEGER, PUBLIC, PARAMETER ::   jptra_trd_nsr = 11   !: non solar radiation 
    48    INTEGER, PUBLIC, PARAMETER ::   jptra_trd_atf = 12   !: Asselin correction 
     35# if ( defined key_trdtrc && defined key_iomput )  ||  defined key_trdmld_trc 
     36   LOGICAL , PUBLIC ::   l_trdtrc = .TRUE.                !: tracers  trend flag 
     37# else 
     38   LOGICAL , PUBLIC ::   l_trdtrc = .FALSE.               !: tracers  trend flag 
     39# endif 
     40   !                                                     !!!* Active tracers trends indexes 
     41   INTEGER, PUBLIC, PARAMETER ::   jptra_trd_xad =  1     !: x- horizontal advection 
     42   INTEGER, PUBLIC, PARAMETER ::   jptra_trd_yad =  2     !: y- horizontal advection 
     43   INTEGER, PUBLIC, PARAMETER ::   jptra_trd_zad =  3     !: z- vertical   advection 
     44   INTEGER, PUBLIC, PARAMETER ::   jptra_trd_ldf =  4     !: lateral       diffusion 
     45   INTEGER, PUBLIC, PARAMETER ::   jptra_trd_zdf =  5     !: vertical diffusion (Kz) 
     46   INTEGER, PUBLIC, PARAMETER ::   jptra_trd_bbc =  6     !: Bottom Boundary Condition (geoth. flux)  
     47   INTEGER, PUBLIC, PARAMETER ::   jptra_trd_bbl =  7     !: Bottom Boundary Layer (diffusive/convective) 
     48   INTEGER, PUBLIC, PARAMETER ::   jptra_trd_npc =  8     !: static instability mixing 
     49   INTEGER, PUBLIC, PARAMETER ::   jptra_trd_dmp =  9     !: damping 
     50   INTEGER, PUBLIC, PARAMETER ::   jptra_trd_qsr = 10     !: penetrative solar radiation 
     51   INTEGER, PUBLIC, PARAMETER ::   jptra_trd_nsr = 11     !: non solar radiation 
     52   INTEGER, PUBLIC, PARAMETER ::   jptra_trd_atf = 12     !: Asselin correction 
     53#if defined key_top 
     54   !                                                     !!!* Passive tracers trends indexes 
     55   INTEGER, PUBLIC, PARAMETER ::   jptra_trd_sms  = 13    !: sources m. sinks 
     56   INTEGER, PUBLIC, PARAMETER ::   jptra_trd_radn = 14    !: corr. trn<0 in trcrad 
     57   INTEGER, PUBLIC, PARAMETER ::   jptra_trd_radb = 15    !: corr. trb<0 in trcrad (like atf) 
     58#endif 
    4959    
    50    !                                                   !!! Momentum trends indexes 
    51    INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_hpg =  1   !: hydrostatic pressure gradient  
    52    INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_keg =  2   !: kinetic energy gradient 
    53    INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_rvo =  3   !: relative vorticity 
    54    INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_pvo =  4   !: planetary vorticity 
    55    INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_ldf =  5   !: lateral diffusion 
    56    INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_had =  6   !: horizontal advection 
    57    INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_zad =  7   !: vertical advection 
    58    INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_zdf =  8   !: vertical diffusion 
    59    INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_spg =  9   !: surface pressure gradient 
    60    INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_dat = 10   !: damping term 
    61    INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_swf = 11   !: surface wind forcing 
    62    INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_bfr = 12   !: bottom friction  
     60   !                                                     !!!* Momentum trends indexes 
     61   INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_hpg =  1     !: hydrostatic pressure gradient  
     62   INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_keg =  2     !: kinetic energy gradient 
     63   INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_rvo =  3     !: relative vorticity 
     64   INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_pvo =  4     !: planetary vorticity 
     65   INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_ldf =  5     !: lateral diffusion 
     66   INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_had =  6     !: horizontal advection 
     67   INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_zad =  7     !: vertical advection 
     68   INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_zdf =  8     !: vertical diffusion 
     69   INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_spg =  9     !: surface pressure gradient 
     70   INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_dat = 10     !: damping term 
     71   INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_swf = 11     !: surface wind forcing 
     72   INTEGER, PUBLIC, PARAMETER ::   jpdyn_trd_bfr = 12     !: bottom friction  
    6373 
    6474   !!---------------------------------------------------------------------- 
    65    !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009)  
    66    !! $Id$  
    67    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     75   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
     76   !! $Id$ 
     77   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    6878   !!====================================================================== 
    6979END MODULE trdmod_oce 
Note: See TracChangeset for help on using the changeset viewer.