Changeset 763 for branches/dev_001_GM/NEMO/TOP_SRC/SMS/sms_lobster1.h90
- Timestamp:
- 2007-12-13T14:52:50+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_GM/NEMO/TOP_SRC/SMS/sms_lobster1.h90
r719 r763 1 !!-------------------------------------------------------------------- 2 !! 3 !! COMMON passivetrc.lobster1.h 4 !! ******************************* 5 !! 6 !! purpose : 7 !! --------- 8 !! INCLUDE COMMON FILE for LOBSTER1 biological model (IF key_trc_lobster1) 9 !! 10 !! modifications : 11 !! ------------- 12 !! original : 99-09 (M. Levy) 13 !! additions : 00-12 (O. Aumont, E. Kestenare): 14 !! add sediment parameters 15 !! 16 !!--------------------------------------------------------------------- 17 !! TOP 1.0 , LOCEAN-IPSL (2005) 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) 18 15 !! $Header$ 19 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 20 !!--------------------------------------------------------------------- 21 !! 22 !! 23 !!---------------------------------------------------------------------- 24 !! 25 !! biological parameters 26 !! -------------------------------------------- 27 !! 28 !! apmin : minimum phytoplancton concentration (NAMELIST) 29 !! azmin : minimum zooplancton concentration (NAMELIST) 30 !! anmin : minimum nutrients concentration (NAMELIST) 31 !! admin : minimum detritus concentration (NAMELIST) 32 !! redf : redfield ratio c:n (NAMELIST) 33 !! reddom : redfield ratio c:n for DOM 34 !! slopet : van t hoff coefficient (NAMELIST) 35 !! toptp : optimal photosynthesis temperature (NAMELIST) 36 !! aknut : half-saturation nutrient (NAMELIST) 37 !! akno3 : half-saturation for nitrate (NAMELIST) 38 !! aknh4 : half-saturation for ammonium (NAMELIST) 39 !! psinut : inhibition of nitrate uptake by ammonium (NAMELIST) 40 !! rgamma : phytoplankton exudation fraction (NAMELIST) 41 !! toptgz : optimal temperature for zooplankton growth (NAMELIST) 42 !! tmaxgz : maximal temperature for zooplankton growth (NAMELIST) 43 !! rgz : widtht of zooplankton temperature FUNCTION (NAMELIST) 44 !! rppz : zooplankton nominal preference for phytoplancton 45 !! food, (NAMELIST) 46 !! taus : maximum specific zooplankton grazing rate (NAMELIST) 47 !! aks : half saturation constant for total zooplankton 48 !! grazing (NAMELIST) 49 !! filmax : maximum mass clearance rate for zooplankton (NAMELIST) 50 !! rpnaz : non-assimilated phytoplankton by zooplancton (NAMELIST) 51 !! rdnaz : non-assimilated detritus by zooplankton (NAMELIST) 52 !! eggzoo : minimum for zooplankton concentration (NAMELIST) 53 !! tauzn : zooplancton specific excretion rate (NAMELIST) 54 !! tmmaxp : maximal phytoplancton mortality rate (NAMELIST) 55 !! tmminp : minimal phytoplancton mortality rate (NAMELIST) 56 !! tmmaxz : maximal zooplankton mortality rate (NAMELIST) 57 !! tmminz : minimal zooplankton mortality rate (NAMELIST) 58 !! anumin : nutrient threshold for phytoplankton mortality (NAMELIST) 59 !! afdmin : food threshold for zooplankton mortality (NAMELIST) 60 !! taudn : detrital breakdown rate (NAMELIST) 61 !! vsed : sedimentation speed (NAMELIST) 62 !! tmumax : maximal phytoplankton growth rate (NAMELIST) 63 !! aki : light photosynthesis half saturation constant (NAMELIST) 64 !! 65 !! tmaxr : maximum coefficient for passive tracer damping (NAMELIST) 66 !! tminr : minimum coefficient for passive tracer damping (NAMELIST) 67 !! remdmp() : damping coefficient of passive tracers (depth dependant) 68 !! fdoml : fraction of exsudation that goes to nh4 (should be labile dom) 69 !! taunn : nitrification rate 70 !! taudomn : slow remineralization rate of semi-labile dom to nh4 71 !! xhr : coeff for Martin's remineralistion profile 72 !! 73 !! added by asklod AS Kremeur 2005-03: 74 !! fphylab : NH4 fraction of phytoplankton excretion 75 !! fzoolab : NH4 fraction of zooplankton excretion 76 !! fdetlab : NH4 fraction of detritus dissolution 77 !! fdbod : zooplankton mortality fraction that goes to detritus 16 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 17 !!---------------------------------------------------------------------- 78 18 79 REAL apmin,azmin,anmin,admin, & 80 redf,reddom,slopet,toptp,aknut,psinut,akno3,aknh4,rcchl, & 81 rgamma,toptgz,tmaxgz,rgz, & 82 rppz,taus,aks,filmax,rpnaz,rdnaz,eggzoo,tauzn, & 83 tmmaxp,tmminp,tmmaxz,tmminz,anumin,afdmin,taudn, & 84 vsed,tmumax,aki, & 85 tmaxr,tminr,fdoml,taunn,taudomn,xhr, & 86 fphylab,fzoolab,fdetlab,fdbod 87 REAL remdmp(jpk,jptra) 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 88 66 89 !! 90 !! 91 # if defined key_trc_diabio 92 !! 93 !!---------------------------------------------------------------------- 94 !! 95 !! biological trends 96 !! ------------------------------------------------------------------ 97 !! 98 !! ctrbio : biological trends name (NAMELIST) 99 !! ctrbil : biological trends long name (NAMELIST) 100 !! ctrbiu : biological trends unit (NAMELIST) 101 !! trbio() : biological trends 102 !! 103 CHARACTER*8 ctrbio(jpdiabio) 104 CHARACTER*20 ctrbiu(jpdiabio) 105 CHARACTER*80 ctrbil(jpdiabio) 106 REAL trbio(jpi,jpj,jpk,jpdiabio) 67 REAL(wp), DIMENSION(jpk,jptra) :: remdmp !: depth dependant damping coefficient of passive tracers 68 107 69 108 !! 109 !! netcdf files and index COMMON biological trends files 110 !! 111 !! nwritebio: time step frequency for biological outputs (NAMELIST) 112 ! asklod 10-2005: oubli de cette partie dans l update: 113 !! nitb : id for additional array output FILE 114 !! ndepitb : id for depth mesh 115 !! nhoritb : id for horizontal mesh 116 !! 117 INTEGER nwritebio,nitb,ndepitb,nhoritb 70 # if defined key_trc_diabio 118 71 119 # endif 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 120 78 121 !!---------------------------------------------------------------------- 122 !! 123 !! optical parameters 124 !! ----------------------------------- 125 !! 126 !! xze : euphotic layer depth 127 !! xpar : par (photosynthetic available radiation) 128 !! xkr0 : water coefficient absorption in red (NAMELIST) 129 !! xkg0 : water coefficient absorption in green (NAMELIST) 130 !! xkrp : pigment coefficient absorption in red (NAMELIST) 131 !! xkgp : pigment coefficient absorption in green (NAMELIST) 132 !! xlr : exposant for pigment absorption in red (NAMELIST) 133 !! xlg : exposant for pigment absorption in green (NAMELIST) 134 !! rpig : chla/chla+phea ratio (NAMELIST) 135 !! 136 REAL xkr0,xkg0,xkrp,xkgp,xlr,xlg,rpig 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 137 85 138 REAL xze(jpi,jpj) 139 REAL xpar(jpi,jpj,jpk) 86 # endif 140 87 141 !!---------------------------------------------------------------------- 142 !! 143 !! sediment parameters 144 !! -------------------------------------- 145 !! 146 !! sedlam : time coefficient of POC remineralization in sediments 147 !! dmin3 : fraction of sinking POC released at each level 148 !! dminl : fraction of sinking POC released in sediments 149 !! asklod add sedpocb, sedpocn, sedpoca 17 06 2005 150 !! sedpocb : mass of POC in sediments 151 !! sedpocn : mass of POC in sediments 152 !! sedpoca : mass of POC in sediments 153 !! fbod : rapid sinking particles 154 !! 155 !! 156 REAL sedlam,sedlostpoc 157 REAL dmin3(jpi,jpj,jpk), dminl(jpi,jpj) 158 REAL sedpoca(jpi,jpj),sedpocb(jpi,jpj),sedpocn(jpi,jpj) 159 REAL fbod(jpi,jpj),cmask(jpi,jpj),areacot 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) 160 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 TracChangeset
for help on using the changeset viewer.
