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_pisces.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_pisces.h90

    r719 r763  
    44   !!====================================================================== 
    55 
    6    INTEGER, PARAMETER ::  jpdiabio = 1 
     6   !!---------------------------------------------------------------------- 
     7   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  
     8   !! $Id:$  
     9   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     10   !!---------------------------------------------------------------------- 
    711 
    8    !! WARNING: BE CAREFUL ABOUT THE ORDER WHEN READING THE RESTART FILE 
    9    !! 
    10    INTEGER, PARAMETER :: & 
    11       jpdic = 1  ,  &  ! dissolved inoganic carbon concentration  
    12       jptal = 2  ,  &  ! total alkalinity  
    13       jpoxy = 3  ,  &  ! oxygen carbon concentration  
    14       jpcal = 4  ,  &  ! calcite  concentration  
    15       jppo4 = 5  ,  &  ! phosphate concentration  
    16       jppoc = 6  ,  &  ! small particulate organic phosphate concentration 
    17       jpsil = 7  ,  &  ! silicate concentration 
    18       jpphy = 8  ,  &  ! phytoplancton concentration  
    19       jpzoo = 9  ,  &  ! zooplancton concentration 
    20       jpdoc = 10 ,  &  ! dissolved organic carbon concentration  
    21       jpdia = 11 ,  &  ! Diatoms Concentration 
    22       jpmes = 12 ,  &  ! Mesozooplankton Concentration 
    23       jpbsi = 13 ,  &  ! (big) Silicate Concentration 
    24       jpfer = 14 ,  &  ! Iron Concentration 
     12   INTEGER, PARAMETER ::   jpdiabio = 1   !: number of biological trends 
     13 
     14   ! WARNING: BE CAREFUL ABOUT THE ORDER WHEN READING THE RESTART FILE 
     15 
     16   INTEGER, PARAMETER ::   jpdic =  1     !: dissolved inoganic carbon concentration  
     17   INTEGER, PARAMETER ::   jptal =  2     !: total alkalinity  
     18   INTEGER, PARAMETER ::   jpoxy =  3     !: oxygen carbon concentration  
     19   INTEGER, PARAMETER ::   jpcal =  4     !: calcite  concentration  
     20   INTEGER, PARAMETER ::   jppo4 =  5     !: phosphate concentration  
     21   INTEGER, PARAMETER ::   jppoc =  6     !: small particulate organic phosphate concentration 
     22   INTEGER, PARAMETER ::   jpsil =  7     !: silicate concentration 
     23   INTEGER, PARAMETER ::   jpphy =  8     !: phytoplancton concentration  
     24   INTEGER, PARAMETER ::   jpzoo =  9     !: zooplancton concentration 
     25   INTEGER, PARAMETER ::   jpdoc = 10     !: dissolved organic carbon concentration  
     26   INTEGER, PARAMETER ::   jpdia = 11     !: Diatoms Concentration 
     27   INTEGER, PARAMETER ::   jpmes = 12     !: Mesozooplankton Concentration 
     28   INTEGER, PARAMETER ::   jpbsi = 13     !: (big) Silicate Concentration 
     29   INTEGER, PARAMETER ::   jpfer = 14     !: Iron Concentration 
    2530#if ! defined key_trc_kriest 
    26       jpbfe = 15 ,  &  ! Big iron particles Concentration 
    27       jpgoc = 16 ,  &  ! big particulate organic phosphate concentration 
    28       jpsfe = 17 ,  &  ! Small iron particles Concentration 
    29       jpdfe = 18 ,  &  ! Diatoms iron Concentration 
    30       jpdsi = 19 ,  &  ! Diatoms Silicate Concentration 
    31       jpnfe = 20 ,  &  ! Nano iron Concentration 
    32       jpnch = 21 ,  &  ! Nano Chlorophyll Concentration 
    33       jpdch = 22 ,  &  ! Diatoms Chlorophyll Concentration 
    34       jpno3 = 23 ,  &  ! Nitrates Concentration 
    35       jpnh4 = 24       ! Ammonium Concentration 
     31   !!---------------------------------------------------------------------- 
     32   !!   Default                                             Standard PISCES 
     33   !!---------------------------------------------------------------------- 
     34   INTEGER, PARAMETER ::   jpbfe = 15     !: Big iron particles Concentration 
     35   INTEGER, PARAMETER ::   jpgoc = 16     !: big particulate organic phosphate concentration 
     36   INTEGER, PARAMETER ::   jpsfe = 17     !: Small iron particles Concentration 
     37   INTEGER, PARAMETER ::   jpdfe = 18     !: Diatoms iron Concentration 
     38   INTEGER, PARAMETER ::   jpdsi = 19     !: Diatoms Silicate Concentration 
     39   INTEGER, PARAMETER ::   jpnfe = 20     !: Nano iron Concentration 
     40   INTEGER, PARAMETER ::   jpnch = 21     !: Nano Chlorophyll Concentration 
     41   INTEGER, PARAMETER ::   jpdch = 22     !: Diatoms Chlorophyll Concentration 
     42   INTEGER, PARAMETER ::   jpno3 = 23     !: Nitrates Concentration 
     43   INTEGER, PARAMETER ::   jpnh4 = 24     !: Ammonium Concentration 
    3644#else 
    37       jpnum = 15 ,  &  ! Big iron particles Concentration 
    38       jpsfe = 16 ,  &  ! number of particulate organic phosphate concentration 
    39       jpdfe = 17 ,  &  ! Diatoms iron Concentration 
    40       jpdsi = 18 ,  &  ! Diatoms Silicate Concentration 
    41       jpnfe = 19 ,  &  ! Nano iron Concentration 
    42       jpnch = 20 ,  &  ! Nano Chlorophyll Concentration 
    43       jpdch = 21 ,  &  ! Diatoms Chlorophyll Concentration 
    44       jpno3 = 22 ,  &  ! Nitrates Concentration 
    45       jpnh4 = 23       ! Ammonium Concentration 
     45   !!---------------------------------------------------------------------- 
     46   !!   'key_trc_kriest'                                    PISCES + kriest 
     47   !!---------------------------------------------------------------------- 
     48   INTEGER, PARAMETER ::   jpnum = 15     !: Big iron particles Concentration 
     49   INTEGER, PARAMETER ::   jpsfe = 16     !: number of particulate organic phosphate concentration 
     50   INTEGER, PARAMETER ::   jpdfe = 17     !: Diatoms iron Concentration 
     51   INTEGER, PARAMETER ::   jpdsi = 18     !: Diatoms Silicate Concentration 
     52   INTEGER, PARAMETER ::   jpnfe = 19     !: Nano iron Concentration 
     53   INTEGER, PARAMETER ::   jpnch = 20     !: Nano Chlorophyll Concentration 
     54   INTEGER, PARAMETER ::   jpdch = 21     !: Diatoms Chlorophyll Concentration 
     55   INTEGER, PARAMETER ::   jpno3 = 22     !: Nitrates Concentration 
     56   INTEGER, PARAMETER ::   jpnh4 = 23     !: Ammonium Concentration 
    4657#endif 
    4758 
Note: See TracChangeset for help on using the changeset viewer.