Changeset 771 for branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

Timestamp:

2007-12-17T11:51:41+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - small error corrections

File:

• branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90 (modified) (6 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

@@ -10 +10 @@
    !!             2.0  !  2007-12  (C. Ethe, G. Madec) from trcini.pisces.h90
    !!----------------------------------------------------------------------
-#if defined key_trc_pisces  &&  defined key_trc_kriest
-   !!---------------------------------------------------------------------
-   !!   'key_trc_pisces' & 'key_trc_kriest'         PISCES bio-model + ???
-   !!---------------------------------------------------------------------
+#if defined key_trc_pisces
+   !!----------------------------------------------------------------------
+   !!   'key_trc_pisces'                                   PISCES bio-model
+   !!----------------------------------------------------------------------
    !! trc_ini_pisces   : PISCES biochemical model initialisation
    !!----------------------------------------------------------------------
    USE par_trc         ! TOP parameters
    USE trccfc          ! CFC sms trends
+   USE sms             ! Source Minus Sink variables
    USE iom
 
@@ -29 +30 @@
    !!----------------------------------------------------------------------
    !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) 
-   !! $Id:$ 
+   !! $Id$ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -41 +42 @@
       !! ** Purpose :   Initialisation of the PISCES biochemical model
       !!----------------------------------------------------------------------
-      INTEGER :: ji, jj, jk, jm
-      INTEGER :: ichl, iband
-      INTEGER , PARAMETER ::   jpmois = 12, jpan   = 1 
-
-      REAL(wp) :: zcoef
-      REAL(wp) :: ztoto,expide,denitide,ztra,zmaskt
-      REAL(wp) , DIMENSION (jpi,jpj) :: riverdoc,river,ndepo
-      REAL(wp) , DIMENSION (jpi,jpj,jpk) :: cmask
+      INTEGER ::   ji, jj, jk, jm
+      INTEGER ::   ichl, iband
+      INTEGER , PARAMETER ::   jpmois = 12, jpan = 1 
+
+      REAL(wp) ::   zcoef
+      REAL(wp) ::   ztoto, expide, denitide,zmaskt
+      REAL(wp) , DIMENSION (jpi,jpj)     ::   riverdoc, river, ndepo
+      REAL(wp) , DIMENSION (jpi,jpj,jpk) ::   cmask
 
       INTEGER :: numriv, numdust, numbath, numdep
@@ -56 +57 @@
       INTEGER  ::   jn, kiter
       REAL(wp) ::   znum, zdiv
-      REAL(wp) ::   zws,zwr, zwl,wmax, xnummax, &
+      REAL(wp) ::   zws, zwr, zwl,wmax, xnummax
       REAL(wp) ::   zmin, zmax, zl, zr, xacc
 #endif
@@ -201 +202 @@
 
 #if defined key_trc_kriest
-      !----------------------------------------------------------------------
+      !!---------------------------------------------------------------------
+      !!    'key_trc_kriest'                                              ???
+      !!---------------------------------------------------------------------
       !  COMPUTATION OF THE VERTICAL PROFILE OF MAXIMUM SINKING SPEED
       !  Search of the maximum number of particles in aggregates for each k-level.  
@@ -569 +572 @@
    !!======================================================================
 END MODULE trcini_pisces
-