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

source: trunk/NEMO/TOP_SRC/PISCES/sms_pisces.F90 @ 1264

Last change on this file since 1264 was 1264, checked in by cetlod, 15 years ago

clean TOP model routines to avoid warning when compiling, see ticket:303
  • Property svn:keywords set to Id
File size: 3.5 KB
Line 
1MODULE sms_pisces   
2   !!----------------------------------------------------------------------
3   !!                     ***  sms_pisces.F90  *** 
4   !! TOP :   PISCES Source Minus Sink variables
5   !!----------------------------------------------------------------------
6   !! History :   1.0  !  2000-02 (O. Aumont) original code
7   !!----------------------------------------------------------------------
8
9#if defined key_pisces
10   !!----------------------------------------------------------------------
11   !!   'key_pisces'                                         PISCES model
12   !!----------------------------------------------------------------------
13   USE par_oce
14   USE par_trc
15
16   IMPLICIT NONE
17   PUBLIC
18
19   !!----------------------------------------------------------------------
20   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)
21   !! $Id$
22   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
23   !!----------------------------------------------------------------------
24
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                                !: ???
31
32   !!----------------------------------------------------------------------
33   !!  Time variables
34   !! ---------------------------------------------------------------------
35   INTEGER  ::   nrdttrc, ndayflxtr       !: ???
36   REAL(wp) ::   rfact, rfactr, rfact2, rfact2r   !: ???
37
38   !!---------------------------------------
39   !!  Biological parameters
40   !! --------------------------------------
41   !
42   REAL(wp) ::   part, rno3, o2ut, po4r, rdenit, o2nit     !: ???
43   REAL(wp) ::   wsbio, wsbio2, xkmort, ferat3                     !: ???
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
51
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 !: ???
59
60   !!---------------------------------------------
61   !!  SMS for the organic matter
62   !!---------------------------------------------
63   !
64   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xfracal, nitrfac, xlimbac, xdiss                  !: ??
65
66#if defined key_kriest
67   !!---------------------------------------------------------
68   !!  Kriest parameter for aggregation
69   !!---------------------------------------------------------
70   REAL(wp) ::  xkr_eta, xkr_zeta
71   REAL(wp) ::  xkr_mass_min, xkr_mass_max, xkr_massp
72#endif
73
74#else
75   !!----------------------------------------------------------------------   
76   !!  Empty module :                                     NO PISCES model
77   !!----------------------------------------------------------------------
78#endif
79   
80   !!======================================================================   
81END MODULE sms_pisces   
Note: See TracBrowser for help on using the repository browser.