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 189 for trunk/NEMO/OPA_SRC/trc_oce.F90 – NEMO

Ignore:
Timestamp:
2004-12-22T16:31:28+01:00 (19 years ago)
Author:
opalod
Message:

CT : BUGFIX130 : add the missing declaration part when using passive tracers, i.e. with key_passivetrc and key_trc_pisces cpp keys

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/trc_oce.F90

    r187 r189  
    22   !!====================================================================== 
    33   !!                      ***  MODULE  trc_oce  *** 
    4    !!                  Dummy module 
    54   !! Ocean passive tracer  :  share SMS/Ocean variables 
    65   !!====================================================================== 
    … …  
    87   !!   9.0  !  04-03  (C. Ethe)  F90: Free form and module 
    98   !!---------------------------------------------------------------------- 
    10  
     9#if defined key_passivetrc && defined key_trc_pisces 
     10   !!---------------------------------------------------------------------- 
     11   !!  OPA 9.0 , LODYC-IPSL (2003) 
     12   !!---------------------------------------------------------------------- 
     13   USE sms , ONLY :  & 
     14      etot3    =>   etot3   !!:  Biological fluxes for light 
     15   !! Shared module variables 
     16   LOGICAL, PUBLIC, PARAMETER ::   lk_qsr_sms = .TRUE.  
     17#else 
    1118   !!---------------------------------------------------------------------- 
    1219   !! Default option                         No Biological fluxes for light           
    … …  
    1623   REAL(wp), PUBLIC , DIMENSION (jpi,jpj,jpk) :: & 
    1724      etot3 
     25#endif 
    1826 
    1927END MODULE trc_oce 
Note: See TracChangeset for help on using the changeset viewer.