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 336 for trunk/NEMO/TOP_SRC/SMS/par_sms_cfc.h90 – NEMO

Ignore:
Timestamp:
2005-11-14T13:13:26+01:00 (19 years ago)
Author:
opalod
Message:

nemo_v1_update_024 : CE + RB + CT : new evolution of modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/TOP_SRC/SMS/par_sms_cfc.h90

    r274 r336  
    1 !! 
    2 !!                         PARAMETER passivetrc.cfc 
    3 !!                       ******************************* 
    4 !! 
    5 !!  purpose : 
    6 !!  --------- 
    7 !!     INCLUDE PARAMETER FILE for passive tracer CFC 
    8 !! 
    9 !!       jptra  : number of tracers 
    10 !! 
    11 !!---------------------------------------------------------------------- 
    12 !!  TOP 1.0,  LOCEAN-IPSL (2005) 
    13 !! $Header$ 
    14 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    15 !!---------------------------------------------------------------------- 
     1   !!--------------------------------------------------------------------- 
     2   !!                     ***  par_sms_cfc.h90  ***   
     3   !!                    CFC Source Minus Sink model 
     4   !!--------------------------------------------------------------------- 
    165 
    17       INTEGER nsort,nsatm 
    18       PARAMETER(nsort=8,nsatm=4)      
    19 !! 
    20 !!    temporal and hemispheric parameter  
    21 !!  -------------------------------------- 
    22       integer jpyear,jphem 
    23       parameter (jpyear=100,jphem=2) 
     6   !!---------------------------------------------------------------------- 
     7   !!  TOP 1.0,  LOCEAN-IPSL (2005) 
     8   !!---------------------------------------------------------------------- 
    249 
     10   INTEGER , PARAMETER :: & 
     11      jpyear = 100,       & ! temporal parameter  
     12      jphem  = 2            ! hemispheric parameter 
     13 
     14   INTEGER, PARAMETER ::  &  
     15      jp11 = 1,           & ! CFC-11 
     16      jp12 = 2              ! CFC-12 
Note: See TracChangeset for help on using the changeset viewer.