Changeset 1445 for trunk/NEMO/TOP_SRC/PISCES/sms_pisces.F90
- Timestamp:
- 2009-05-13T16:35:02+02:00 (15 years ago)
- File:
-
- 1 edited
-
trunk/NEMO/TOP_SRC/PISCES/sms_pisces.F90 (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/PISCES/sms_pisces.F90
r1288 r1445 5 5 !!---------------------------------------------------------------------- 6 6 !! History : 1.0 ! 2000-02 (O. Aumont) original code 7 !! 3.2 ! 2009-04 (C. Ethe & NEMO team) style 7 8 !!---------------------------------------------------------------------- 8 9 … … 17 18 PUBLIC 18 19 19 !! ----------------------------------------------------------------------20 !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)21 !! $Id$22 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)23 !!----------------------------------------------------------------------20 !!* Time variables 21 INTEGER :: nrdttrc !: ??? 22 INTEGER :: ndayflxtr !: ??? 23 REAL(wp) :: rfact , rfactr !: ??? 24 REAL(wp) :: rfact2, rfact2r !: ??? 24 25 25 !!---------------------------------------------------------------------- 26 !! Variable for chemistry of the CO2 cycle 27 !! --------------------------------------------------------------------- 28 ! 29 REAL(wp), DIMENSION(jpi,jpj,jpk) :: akb3, ak13, ak23, aksp, akw3 !: ??? 30 REAL(wp), DIMENSION(jpi,jpj,jpk) :: hi, borat !: ??? 26 !!* Biological parameters 27 REAL(wp) :: part !: ??? 28 REAL(wp) :: rno3 !: ??? 29 REAL(wp) :: o2ut !: ??? 30 REAL(wp) :: po4r !: ??? 31 REAL(wp) :: rdenit !: ??? 32 REAL(wp) :: o2nit !: ??? 33 REAL(wp) :: wsbio, wsbio2 !: ??? 34 REAL(wp) :: xkmort !: ??? 35 REAL(wp) :: ferat3 !: ??? 31 36 32 !!---------------------------------------------------------------------- 33 !! Time variables 34 !! --------------------------------------------------------------------- 35 INTEGER :: nrdttrc, ndayflxtr !: ??? 36 REAL(wp) :: rfact, rfactr, rfact2, rfact2r !: ??? 37 !!* Damping 38 LOGICAL :: ln_pisdmp !: relaxation or not of nutrients to a mean value 39 !: when initialize from a restart file 37 40 38 !!--------------------------------------- 39 !! Biological parameters 40 !! -------------------------------------- 41 ! 42 REAL(wp) :: part, rno3, o2ut, po4r, rdenit, o2nit !: ??? 43 REAL(wp) :: wsbio, wsbio2, xkmort, ferat3 !: ??? 41 !!* Biological fluxes for light 42 INTEGER , DIMENSION(jpi,jpj) :: neln !: number of T-levels + 1 in the euphotic layer 43 REAL(wp), DIMENSION(jpi,jpj) :: heup !: euphotic layer depth 44 44 45 !!--------------------------------------------- 46 !! Biological fluxes for light 47 !!--------------------------------------------- 48 REAL(wp), DIMENSION(jpi,jpj,jpk) :: etot3 !: ??? 49 INTEGER , DIMENSION(jpi,jpj) :: neln !: number of levels in the euphotic layer 50 REAL(wp), DIMENSION(jpi,jpj) :: heup !: euphotic layer depth 45 !!* Biological fluxes for primary production 46 REAL(wp), DIMENSION(jpi,jpj) :: xksi !: ??? 47 REAL(wp), DIMENSION(jpi,jpj) :: xksimax !: ??? 48 REAL(wp), DIMENSION(jpi,jpj,jpk) :: xnanono3 !: ??? 49 REAL(wp), DIMENSION(jpi,jpj,jpk) :: xdiatno3 !: ??? 50 REAL(wp), DIMENSION(jpi,jpj,jpk) :: xnanonh4 !: ??? 51 REAL(wp), DIMENSION(jpi,jpj,jpk) :: xdiatnh4 !: ??? 52 REAL(wp), DIMENSION(jpi,jpj,jpk) :: xlimphy !: ??? 53 REAL(wp), DIMENSION(jpi,jpj,jpk) :: xlimdia !: ??? 54 REAL(wp), DIMENSION(jpi,jpj,jpk) :: concdfe !: ??? 55 REAL(wp), DIMENSION(jpi,jpj,jpk) :: concnfe !: ??? 51 56 52 !!---------------------------------------------------------- 53 !! Biological fluxes for primary production 54 !!---------------------------------------------------------- 55 REAL(wp), DIMENSION(jpi,jpj) :: xksi, xksimax 56 ! 57 REAL(wp), DIMENSION(jpi,jpj,jpk) :: xnanono3, xdiatno3, xnanonh4, xdiatnh4 !: ??? 58 REAL(wp), DIMENSION(jpi,jpj,jpk) :: xlimphy, xlimdia, concdfe, concnfe !: ??? 57 !!* SMS for the organic matter 58 REAL(wp), DIMENSION(jpi,jpj,jpk) :: xfracal !: ?? 59 REAL(wp), DIMENSION(jpi,jpj,jpk) :: nitrfac !: ?? 60 REAL(wp), DIMENSION(jpi,jpj,jpk) :: xlimbac !: ?? 61 REAL(wp), DIMENSION(jpi,jpj,jpk) :: xdiss !: ?? 59 62 60 !!--------------------------------------------- 61 !! SMS for the organic matter 62 !!--------------------------------------------- 63 REAL(wp), DIMENSION(jpi,jpj,jpk) :: xfracal, nitrfac, xlimbac, xdiss !: ?? 64 65 !!--------------------------------------------- 66 !! Damping 67 !!--------------------------------------------- 68 LOGICAL :: ln_pisdmp 63 !!* Variable for chemistry of the CO2 cycle 64 REAL(wp), DIMENSION(jpi,jpj,jpk) :: akb3 !: ??? 65 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ak13 !: ??? 66 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ak23 !: ??? 67 REAL(wp), DIMENSION(jpi,jpj,jpk) :: aksp !: ??? 68 REAL(wp), DIMENSION(jpi,jpj,jpk) :: akw3 !: ??? 69 REAL(wp), DIMENSION(jpi,jpj,jpk) :: borat !: ??? 70 REAL(wp), DIMENSION(jpi,jpj,jpk) :: hi !: ??? 69 71 70 72 #if defined key_kriest 71 !! ---------------------------------------------------------72 !! Kriest parameter for aggregation73 !!---------------------------------------------------------74 REAL(wp) :: xkr_eta, xkr_zeta75 REAL(wp) :: xkr_mass_min, xkr_mass_max, xkr_massp73 !!* Kriest parameter for aggregation 74 REAL(wp) :: xkr_eta !: ??? 75 REAL(wp) :: xkr_zeta !: ??? 76 REAL(wp) :: xkr_massp !: ??? 77 REAL(wp) :: xkr_mass_min, xkr_mass_max !: ??? 76 78 #endif 77 79 … … 82 84 #endif 83 85 86 !!---------------------------------------------------------------------- 87 !! NEMO/TOP 3.2 , LOCEAN-IPSL (2009) 88 !! $Id$ 89 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 84 90 !!====================================================================== 85 91 END MODULE sms_pisces
Note: See TracChangeset
for help on using the changeset viewer.
