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

source: trunk/NEMOGCM/NEMO/TOP_SRC/LOBSTER/sms_lobster.F90 @ 2528

Last change on this file since 2528 was 2528, checked in by rblod, 13 years ago

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