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 763 for branches/dev_001_GM/NEMO/TOP_SRC/SMS/par_sms_lobster1.h90 – NEMO

Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_001_GM/NEMO/TOP_SRC/SMS/par_sms_lobster1.h90

    r719 r763  
    1 !!--------------------------------------------------------------------- 
    2 !! 
    3 !!                         PARAMETER passivetrc.lobster1 
    4 !!                       ******************************** 
    5 !! 
    6 !!  purpose : 
    7 !!  --------- 
    8 !!     INCLUDE PARAMETER FILE for passive tracer LOBSTER1 model 
    9 !! 
    10 !!  modifications:   
    11 !!  -------------- 
    12 !!     00-12 (E. Kestenare):  
    13 !!            assign a parameter to name individual tracers 
    14 !! 
    15 !! productive layer depth 
    16 !! ---------------------- 
    17 !!       jpkb   : first vertical layers where biology is active 
    18 !!       jpkbm1 : jpkb - 1 
    19 !! 
    20 !!---------------------------------------------------------------------- 
    21 !!  TOP 1.0,  LOCEAN-IPSL (2005) 
    22 !! $Header$ 
    23 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    24 !!---------------------------------------------------------------------- 
     1   !!--------------------------------------------------------------------- 
     2   !!                     ***  par_sms_lobster1.h90  ***   
     3   !! TOP :   CFC Source Minus Sink parameter for LOBSTER 
     4   !!--------------------------------------------------------------------- 
     5   !! History :    -   !  1999-06  (M. Levy)  original code 
     6   !!              -   !  2000-12  (E. Kestenare) assign a parameter to name individual tracers 
     7   !!             1.0  !  2005-03  (C. Ethe) F90 
     8   !!---------------------------------------------------------------------- 
    259 
    26       INTEGER jpkb,jpkbm1 
    27       PARAMETER (jpkb = 12,jpkbm1 = 11) 
    28 !! 
    29 !! number of biological trends 
    30 !! --------------------------- 
    31 !! 
    32       INTEGER jpdiabio 
    33       PARAMETER (jpdiabio = 15) 
    34 !! 
    35 !!    NOW ASSIGN A PARAMETER TO NAME INDIVIDUAL TRACERS 
    36 !! 
    37 !!    JPDET : detritus (mmoleN/m3) 
    38 !!    JPZOO : zooplancton concentration (mmoleN/m3) 
    39 !!    JPPHY : phytoplancton concentration (mmoleN/m3) 
    40 !!    JPNO3 : nitrate concentration (mmoleN/m3) 
    41 !!    JPNH4 : ammonium concentration (mmoleN/m3) 
    42 !!    JPDOM : dissolved organic matter (mmoleN/m3) 
    43 !! 
    44       INTEGER jpdet,jpzoo,jpphy,jpno3,jpnh4,jpdom 
    45       PARAMETER (jpdet=1,jpzoo=2,jpphy=3,jpno3=4,jpnh4=5,jpdom=6) 
     10   !!---------------------------------------------------------------------- 
     11   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  
     12   !! $Id:$  
     13   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     14   !!---------------------------------------------------------------------- 
    4615 
     16   INTEGER, PARAMETER ::   jpkb     = 12        !: top jk layers where biology is active 
     17   INTEGER, PARAMETER ::   jpkbm1   = jpkb - 1  !: 
     18 
     19   INTEGER, PARAMETER ::   jpdiabio = 15        !: number of biological trends 
     20       
     21   INTEGER, PARAMETER ::   jpdet    = 1         !: detritus                    [mmoleN/m3] 
     22   INTEGER, PARAMETER ::   jpzoo    = 2         !: zooplancton concentration   [mmoleN/m3] 
     23   INTEGER, PARAMETER ::   jpphy    = 3         !: phytoplancton concentration [mmoleN/m3] 
     24   INTEGER, PARAMETER ::   jpno3    = 4         !: nitrate concentration       [mmoleN/m3] 
     25   INTEGER, PARAMETER ::   jpnh4    = 5         !: ammonium concentration      [mmoleN/m3] 
     26   INTEGER, PARAMETER ::   jpdom    = 6         !: dissolved organic matter    [mmoleN/m3] 
     27 
Note: See TracChangeset for help on using the changeset viewer.