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.
sms_lobster.h90 in trunk/NEMO/TOP_SRC/LOBSTER – NEMO

source: trunk/NEMO/TOP_SRC/LOBSTER/sms_lobster.h90 @ 934

Last change on this file since 934 was 934, checked in by cetlod, 16 years ago

adding modules for LOBSTER SMS model, see ticket 140
File size: 7.7 KB
Line 
1   !!----------------------------------------------------------------------
2   !!                     ***  sms_lobster1.h90  *** 
3   !! TOP :   LOBSTER 1 Source Minus Sink valiables
4   !!----------------------------------------------------------------------
5   !! History :    -   !  1999-09 (M. Levy)  original code
6   !!              -   !  2000-12 (O. Aumont, E. Kestenare) add sediment
7   !!             1.0  !  2005-10 (C. Ethe) F90
8   !!             1.0  !  2005-03  (A-S Kremeur) add fphylab, fzoolab, fdetlab, fdbod
9   !!              -   !  2005-06  (A-S Kremeur) add sedpocb, sedpocn, sedpoca
10   !!             2.0  !  2007-04  (C. Deltel, G. Madec) Free form and modules
11   !!----------------------------------------------------------------------
12
13   !!----------------------------------------------------------------------
14   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)
15   !! $Header$
16   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
17   !!----------------------------------------------------------------------
18
19   !!  biological parameters
20   !! ----------------------
21   REAL(wp) ::   apmin    !: minimum phytoplancton concentration              (NAMELIST)
22   REAL(wp) ::   azmin    !: minimum zooplancton concentration                (NAMELIST)
23   REAL(wp) ::   anmin    !: minimum nutrients concentration                  (NAMELIST)
24   REAL(wp) ::   admin    !: minimum detritus concentration                   (NAMELIST)
25   REAL(wp) ::   redf     !: redfield ratio c:n                               (NAMELIST)
26   REAL(wp) ::   reddom   !: redfield ratio c:n for DOM                       
27   REAL(wp) ::   slopet   !: van t hoff coefficient                           (NAMELIST)
28   REAL(wp) ::   toptp    !: optimal photosynthesis temperature               (NAMELIST)
29   REAL(wp) ::   aknut    !: half-saturation nutrient                         (NAMELIST)
30   REAL(wp) ::   psinut   !: inhibition of nitrate uptake by ammonium         (NAMELIST)
31   REAL(wp) ::   akno3    !: half-saturation for nitrate                      (NAMELIST)
32   REAL(wp) ::   aknh4    !: half-saturation for ammonium                     (NAMELIST)
33   REAL(wp) ::   rcchl    !: ???                                             
34   REAL(wp) ::   rgamma   !: phytoplankton exudation fraction                 (NAMELIST)
35   REAL(wp) ::   toptgz   !: optimal temperature for zooplankton growth       (NAMELIST)
36   REAL(wp) ::   tmaxgz   !: maximal temperature for zooplankton growth       (NAMELIST)
37   REAL(wp) ::   rgz      !: widtht of zooplankton temperature FUNCTION       (NAMELIST)
38   REAL(wp) ::   rppz     !: zooplankton nominal preference for phytoplancton food (NAMELIST)
39   REAL(wp) ::   taus     !: maximum specific zooplankton grazing rate        (NAMELIST)
40   REAL(wp) ::   aks      !: half saturation constant for total zooplankton grazing (NAMELIST)
41   REAL(wp) ::   filmax   !: maximum mass clearance rate for zooplankton      (NAMELIST)
42   REAL(wp) ::   rpnaz    !: non-assimilated phytoplankton by zooplancton     (NAMELIST)
43   REAL(wp) ::   rdnaz    !: non-assimilated detritus by zooplankton          (NAMELIST)
44   REAL(wp) ::   eggzoo   !: minimum for zooplankton concentration            (NAMELIST)
45   REAL(wp) ::   tauzn    !: zooplancton specific excretion rate              (NAMELIST)
46   REAL(wp) ::   tmmaxp   !: maximal phytoplancton mortality rate             (NAMELIST)
47   REAL(wp) ::   tmminp   !: minimal phytoplancton mortality rate             (NAMELIST)
48   REAL(wp) ::   tmmaxz   !: maximal zooplankton mortality rate               (NAMELIST)
49   REAL(wp) ::   tmminz   !: minimal zooplankton mortality rate               (NAMELIST)
50   REAL(wp) ::   anumin   !: nutrient threshold for phytoplankton mortality   (NAMELIST)
51   REAL(wp) ::   afdmin   !: food threshold for zooplankton mortality         (NAMELIST)
52   REAL(wp) ::   taudn    !: detrital breakdown rate                          (NAMELIST)
53   REAL(wp) ::   vsed     !: sedimentation speed                              (NAMELIST)
54   REAL(wp) ::   tmumax   !: maximal phytoplankton growth rate                (NAMELIST)
55   REAL(wp) ::   aki      !: light photosynthesis half saturation constant    (NAMELIST)
56   REAL(wp) ::   tmaxr    !: maximum coefficient for passive tracer damping   (NAMELIST)
57   REAL(wp) ::   tminr    !: minimum coefficient for passive tracer damping   (NAMELIST)
58   REAL(wp) ::   fdoml    !: fraction of exsudation that goes to nh4 (should be labile dom)
59   REAL(wp) ::   taunn    !: nitrification rate
60   REAL(wp) ::   taudomn  !: slow remineralization rate of semi-labile dom to nh4
61   REAL(wp) ::   xhr      !: coeff for Martin's remineralistion profile
62   REAL(wp) ::   fphylab  !: NH4 fraction of phytoplankton excretion
63   REAL(wp) ::   fzoolab  !: NH4 fraction of zooplankton excretion
64   REAL(wp) ::   fdetlab  !: NH4 fraction of detritus dissolution
65   REAL(wp) ::   fdbod    !: zooplankton mortality fraction that goes to detritus
66
67   REAL(wp), DIMENSION(jpk,jp_lobster) ::   remdmp   !: depth dependant damping coefficient of passive tracers
68   
69
70# if defined key_trc_diabio
71
72   !! Biological trends
73   !! -----------------
74   CHARACTER(len=8),  DIMENSION(jpdiabio) ::   ctrbio   !: biological trends name      (NAMELIST)
75   CHARACTER(len=20), DIMENSION(jpdiabio) ::   ctrbiu   !: biological trends unit      (NAMELIST)
76   CHARACTER(len=80), DIMENSION(jpdiabio) ::   ctrbil   !: biological trends long name (NAMELIST)
77   REAL(wp), DIMENSION(jpi,jpj,jpk,jpdiabio) :: trbio   !: biological trends
78
79   !! Netcdf output parameters
80   !! ------------------------
81   INTEGER ::   nwritebio   !: time step frequency for biological outputs (NAMELIST)
82   INTEGER ::   nitb        !:         id.         for additional array output file
83   INTEGER ::   ndepitb     !:         id.         for depth mesh
84   INTEGER ::   nhoritb     !:         id.         for horizontal mesh
85
86# endif
87
88   !! Optical parameters                               
89   !! ------------------                               
90   REAL(wp) ::   xkr0       !: water coefficient absorption in red      (NAMELIST)
91   REAL(wp) ::   xkg0       !: water coefficient absorption in green    (NAMELIST)
92   REAL(wp) ::   xkrp       !: pigment coefficient absorption in red    (NAMELIST)
93   REAL(wp) ::   xkgp       !: pigment coefficient absorption in green  (NAMELIST)
94   REAL(wp) ::   xlr        !: exposant for pigment absorption in red   (NAMELIST)
95   REAL(wp) ::   xlg        !: exposant for pigment absorption in green (NAMELIST)
96   REAL(wp) ::   rpig       !: chla/chla+phea ratio                     (NAMELIST)
97                                                       
98   INTEGER , DIMENSION(jpi,jpj)     ::   neln    !: number of levels in the euphotic layer
99   REAL(wp), DIMENSION(jpi,jpj)     ::   xze     !: euphotic layer depth
100   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xpar    !: par (photosynthetic available radiation)
101
102   !! Sediment parameters                               
103   !! -------------------                               
104   REAL(wp) ::   sedlam       !: time coefficient of POC remineralization in sediments
105   REAL(wp) ::   sedlostpoc   !: ???
106   REAL(wp) ::   areacot      !: ???
107                                                       
108   REAL(wp), DIMENSION(jpi,jpj)     ::   dminl   !: fraction of sinking POC released in sediments
109   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   dmin3   !: fraction of sinking POC released at each level
110                                                       
111   REAL(wp), DIMENSION(jpi,jpj) ::   sedpocb     !: mass of POC in sediments
112   REAL(wp), DIMENSION(jpi,jpj) ::   sedpocn     !: mass of POC in sediments
113   REAL(wp), DIMENSION(jpi,jpj) ::   sedpoca     !: mass of POC in sediments
114                                                       
115   REAL(wp), DIMENSION(jpi,jpj) ::   fbod        !: rapid sinking particles
116   REAL(wp), DIMENSION(jpi,jpj) ::   cmask       !: ???
117
Note: See TracBrowser for help on using the repository browser.